git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8602
48e7efb5-ca39-0410-a469-
dd3cf9ba447f
#!/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";
+ print "\n$line_exec";
chomp $line;
open (FILE, "$line 2>&1|");
while(defined($l=<FILE>))