summaryrefslogtreecommitdiff
path: root/src/script/profonly.pl
blob: 6a05dec473ca0525594ac38e1fc80f27446fdb51 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
#!/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;