X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/cd62453970416ecd110ca3df5814b3268309f0e7..0c3701e24626a87cef600fc29484a4e4b82e28be:/buildtools/Cmake/my_valgrind.pl

diff --git a/buildtools/Cmake/my_valgrind.pl b/buildtools/Cmake/my_valgrind.pl
index a2f4dc00d8..089629ecb0 100755
--- a/buildtools/Cmake/my_valgrind.pl
+++ b/buildtools/Cmake/my_valgrind.pl
@@ -1,30 +1,23 @@
 #!/usr/bin/perl -w
 use strict;
-my($arg)="";
-my($val_path)="/usr/bin"; #By default
-my($count)=0;
+my @argv = ("valgrind");
+my $count = 0;
 
-while($count!=$#ARGV+1)
-{
-	print "arg($count)$ARGV[$count]\n";
-	if($ARGV[$count] eq "--cd"){
-		print "cd $ARGV[$count+1]\n";
-		chdir ($ARGV[$count+1]);
-		$count++;
-	}
-	elsif($ARGV[$count] eq "--valgrind") {
-		print "valgrind_path $ARGV[$count+1]\n";
-		$val_path = $ARGV[$count+1];
-		$count++;
-	}
-	else{
-		$arg="$arg $ARGV[$count]";
-	}
-	$count++;
+while (my $arg = shift) {
+    print "arg($count)$arg\n";
+    if($arg eq "--cd"){
+        $arg = shift;
+        print "cd $arg\n";
+        chdir ($arg);
+        $count++;
+    } else{
+        push @argv, $arg;
+    }
+    $count++;
 }
 
 #print "COMMAND : $bin $option $cd $path\n";
 #print "cd $path\n";
-#print "$val_path\/valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
-print "$val_path\/valgrind $arg\n\n";
-system "$val_path\/valgrind $arg";
+#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;