- if($line =~ /^\$(.*)$/)
- {
- $line_exec = $line;
- $line =~ s/\$\{srcdir\:\=\.\}/./g;
- $line =~ s/\$SG_TEST_EXENV//g;
- $line =~ s/\$EXEEXT//g;
- $line =~ s/^\$\ */.\//g;
- $line =~ s/^.\/lua/lua/g;
- $line =~ s/^.\/ruby/ruby/g;
- $line =~ s/--log=([^ ]*)/--log="$1"/g;
- print "\n$line_exec";
- chomp $line;
- open (FILE, "$line 2>&1|");
- while(defined($l=<FILE>))
- {
- chomp $l;
- print "\> $l\n";
- }
-