From c927e76c17fc515f51a6e41aa4edf59480caf190 Mon Sep 17 00:00:00 2001
From: agiersch <agiersch@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Tue, 16 Nov 2010 09:25:39 +0000
Subject: [PATCH] Make my_valgrind.pl work with spaces in parameters.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8562 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 buildtools/Cmake/my_valgrind.pl | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/buildtools/Cmake/my_valgrind.pl b/buildtools/Cmake/my_valgrind.pl
index 4fc3050c5f..089629ecb0 100755
--- a/buildtools/Cmake/my_valgrind.pl
+++ b/buildtools/Cmake/my_valgrind.pl
@@ -1,24 +1,23 @@
 #!/usr/bin/perl -w
 use strict;
-my($arg)="";
-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++;
-	}
-	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 "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
-print "valgrind $arg\n\n";
-system "valgrind $arg";
+print "@argv\n\n";
+system @argv;
-- 
2.20.1