diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-07-04 02:35:51 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-03 21:31:47 +0000 |
| commit | a56de954cdf53c6e6a1cc9f54db01b73b54a5d17 (patch) | |
| tree | 8e00bfd73fe0c8c77404d83e3c500a4a2d58fbfe /t/op/magic.t | |
| parent | d67ba1064d808909175695d2eb8fc49e9e070c24 (diff) | |
| download | perl-a56de954cdf53c6e6a1cc9f54db01b73b54a5d17.tar.gz | |
t/op/magic.t on FreeBSD
Message-Id: <200307032235.h63MZpKY036791@vran.herceg.de>
p4raw-id: //depot/perl@19971
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 545d34b374..f55630a823 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -292,7 +292,9 @@ else { my $mydollarzero = sub { my($arg) = shift; $0 = $arg if defined $arg; - my $ps = `ps -o command= -p $$`; + # In FreeBSD the ps -o command= will cause + # an empty header line, grab only the last line. + my $ps = (`ps -o command= -p $$`)[-1]; return if $?; chomp $ps; printf "# 0[%s]ps[%s]\n", $0, $ps; |