From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 4 Jul 2003 00:35:51 +0000 (+0200)
Subject: t/op/magic.t on FreeBSD
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fbd3c14b02955d6284575071522c5a5887bc02f5;p=p5sagit%2Fp5-mst-13.2.git

t/op/magic.t on FreeBSD
Message-Id: <200307032235.h63MZpKY036791@vran.herceg.de>

p4raw-id: //depot/perl@19971
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 545d34b..f55630a 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;