X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/fbb6b4556c347a1dec9e462574fdc2967f494002..e3264b086cd740f48ae6a51f9c3c24410f8ecba0:/buildtools/Cmake/Scripts/my_valgrind.pl

diff --git a/buildtools/Cmake/Scripts/my_valgrind.pl b/buildtools/Cmake/Scripts/my_valgrind.pl
index bbd72c5ca1..073b4b8a07 100755
--- a/buildtools/Cmake/Scripts/my_valgrind.pl
+++ b/buildtools/Cmake/Scripts/my_valgrind.pl
@@ -1,16 +1,25 @@
 #!/usr/bin/perl -w
+
+# Copyright (c) 2012-2014. 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.
+
 use strict;
 my @argv = ("valgrind");
 my $count = 0;
 
 while (defined(my $arg = shift)) {
     print "arg($count)$arg\n";
-    if($arg eq "--cd"){
+    if ($arg =~ m!/smpirun$!) {
+        @argv = ( $arg, "-wrapper", "@argv" );
+    } elsif ($arg eq "--cd") {
         $arg = shift;
         print "cd $arg\n";
         chdir ($arg);
         $count++;
-    } else{
+    } else {
         push @argv, $arg;
     }
     $count++;