X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/7da2926d0733ff0683f31aeea176ce71e127264f..e50b11790adbea41e15ddcb39441ada070877bd4:/tools/cmake/scripts/my_valgrind.pl?ds=inline diff --git a/tools/cmake/scripts/my_valgrind.pl b/tools/cmake/scripts/my_valgrind.pl index 3b273d5d61..6892b52ae6 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-2016. 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,7 +12,7 @@ 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" ); } elsif ($arg eq "--cd") { @@ -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"; +# print "COMMAND:"; +# map { print "$_ " } @argv; +# print "\n"; + system @argv;