X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4716eb134de74f09bda227c6f3bdea71924acc8c..79affec61e2c9af35fc9d5c5f34c977dde041283:/tools/cmake/scripts/my_valgrind.pl

diff --git a/tools/cmake/scripts/my_valgrind.pl b/tools/cmake/scripts/my_valgrind.pl
index 1b9067c7bd..eb33cb0e8e 100755
--- a/tools/cmake/scripts/my_valgrind.pl
+++ b/tools/cmake/scripts/my_valgrind.pl
@@ -1,7 +1,6 @@
 #!/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.
@@ -13,9 +12,9 @@ my @argv = ("valgrind");
 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";
@@ -27,8 +26,8 @@ while (defined(my $arg = shift)) {
     $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";
-system @argv;
+# print "COMMAND:";
+# map { print "$_ " } @argv;
+# print "\n";
+
+exec @argv;