#!/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 (my $arg = shift) {
+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++;