#!/usr/bin/perl -w -I../lib # Check that there are no unescaped '$'s in language modules. # # # For each two letter module # foreach my $lang (glob ("../lib/gnump3d/lang/??.pm" ) ) { open( LINES, "grep -v 'Id:.*Exp' $lang |" ) or die "Cannot run grep"; foreach my $line ( ) { chomp $line; if ( $line =~ / \$/ ) { print "$lang - failed - $line\n"; exit 1; } } close( LINES ); } exit( 0 );