3 my @argv = ("valgrind");
6 while (defined(my $arg = shift)) {
7 print "arg($count)$arg\n";
8 if ($arg =~ m!/smpirun$!) {
9 @argv = ( $arg, "-wrapper", "@argv" );
10 } elsif ($arg eq "--cd") {
21 #print "COMMAND : $bin $option $cd $path\n";
23 #print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";