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 | fbd3c14b02955d6284575071522c5a5887bc02f5 (patch) | |
| tree | 8e00bfd73fe0c8c77404d83e3c500a4a2d58fbfe /t | |
| parent | 5ce4bb829584aaed2a64d6e71cdb8f619053358a (diff) | |
| download | perl-fbd3c14b02955d6284575071522c5a5887bc02f5.tar.gz | |
t/op/magic.t on FreeBSD
Message-Id: <200307032235.h63MZpKY036791@vran.herceg.de>
p4raw-id: //depot/perl@19971
Diffstat (limited to '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; |