#!/usr/bin/perl -w
use strict;
-if($#ARGV!=2) {
- die "Usage: perl make_tesh.pl <directory> <old.tesh> <new.tesh>\n";
+if($#ARGV!=1) {
+ die "Usage: perl make_tesh.pl <directory> <old.tesh>\n";
}
my($directory)=$ARGV[0];
my($old)=$ARGV[1];
-my($new)=$ARGV[2];
chdir("$directory");
$line =~ s/^\$\ */.\//g;
$line =~ s/^.\/lua/lua/g;
$line =~ s/^.\/ruby/ruby/g;
- print "$line_exec\n";
+ $line =~ s/--log=([^ ]*)/--log="$1"/g;
+ print "\n$line_exec";
chomp $line;
open (FILE, "$line 2>&1|");
while(defined($l=<FILE>))