#!/usr/bin/env perl
-# Copyright (c) 2012-2014. The SimGrid Team.
-# All rights reserved.
+# Copyright (c) 2012-2019. The SimGrid Team. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the terms of the license (GNU LGPL) which comes with this package.
my $count = 0;
while (defined(my $arg = shift)) {
- #print "arg($count)$arg\n";
+# print "arg($count)$arg\n";
if ($arg =~ m!/smpirun$!) {
- @argv = ( $arg, "-wrapper", "@argv" );
+ @argv = ( $arg, "-keep-temps", "-wrapper", "@argv" );
} elsif ($arg eq "--cd") {
$arg = shift;
print "cd $arg\n";
$count++;
}
-#print "COMMAND : $bin $option $cd $path\n";
-#print "cd $path\n";
-#print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
-#print "@argv\n\n";
+# print "COMMAND:";
+# map { print "$_ " } @argv;
+# print "\n";
+
system @argv;