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++;