5 die "Usage: perl tesh.pl <directory> <teshfile.tesh>\n";
8 my($directory)=$ARGV[0];
13 open SH_LIGNE, $file or die "Unable to open $file. $!\n";
20 while(defined($line=<SH_LIGNE>))
23 if($line =~ /^\$(.*)$/)
26 $line =~ s/\$\{srcdir\:\=\.\}/./g;
27 $line =~ s/\$SG_TEST_EXENV//g;
28 $line =~ s/\$EXEEXT//g;
29 $line =~ s/^\$\ */.\//g;
30 $line =~ s/^.\/lua/lua/g;
31 $line =~ s/^.\/ruby/ruby/g;