#!/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 (<LINES> )
   {
	chomp $line;
	if ( $line =~ / \$/ )
	{
		# Skip $]
		next if ( $line =~ /\$\]/ );

		print "$lang - failed - $line\n";
		exit 1;
	}
   }
   close( LINES );
}

exit( 0 );
