+ $line_exec = $line;
+ $line =~ s/\$\{srcdir\:\=\.\}/./g;
+ $line =~ s/\(/\\(/g;
+ $line =~ s/\)/\\)/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 "$line_exec";
+ chomp $line;
+ open (FILE, "$line 2>&1|");
+ while(defined($l=<FILE>))
+ {
+ chomp $l;
+ print "\> $l\n";
+ }
+ close(FILE);
+ }