mirror of
https://github.com/ceph/ceph
synced 2025-01-11 21:50:26 +00:00
13 lines
257 B
Perl
13 lines
257 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
my $rank = shift @ARGV;
|
||
|
|
my $args = join(' ',@ARGV);
|
||
|
|
if ($rank == $ENV{MPD_JRANK}) {
|
||
|
|
$c = "LD_PRELOAD=$ENV{'HOME'}/csl/obsd/src/pmds/gprof-helper.so ./newsyn $args";
|
||
|
|
} else {
|
||
|
|
$c = "./newsyn.nopg $args";
|
||
|
|
}
|
||
|
|
|
||
|
|
#print "$rank: $c\n";
|
||
|
|
system $c;
|