2 foreach my $mpi_try (qw(mpiexec mpirun)) {
3 my $test = join("",`$mpi_try -n 1 perl -e "print qq{honk},qq{honk\n}"`);
4 $mpirun = $mpi_try if $test =~ /honkhonk/;
7 $mpirun = $mpirun || "mpirun"; # fallback
9 $incs .= " -I$_" foreach @INC;
11 (($a =~ /(\d+)/g)[0] <=> ($b =~ /(\d+)/g)[0])
12 } `$mpirun -np 2 $^X $incs ic.pl`;
15 print "not ok 1 # mpirun failed. Do you need to start mpd?\n";