summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1b1f1f3)
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;
#!/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($directory)=$ARGV[0];
my($old)=$ARGV[1];
$line =~ s/^\$\ */.\//g;
$line =~ s/^.\/lua/lua/g;
$line =~ s/^.\/ruby/ruby/g;
$line =~ s/^\$\ */.\//g;
$line =~ s/^.\/lua/lua/g;
$line =~ s/^.\/ruby/ruby/g;
chomp $line;
open (FILE, "$line 2>&1|");
while(defined($l=<FILE>))
chomp $line;
open (FILE, "$line 2>&1|");
while(defined($l=<FILE>))