Change 19971 by [EMAIL PROTECTED] on 2003/07/03 21:31:47
Subject: [PATCH] t/op/magic.t on FreeBSD
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: Fri, 4 Jul 2003 00:35:51 +0200 (CEST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/magic.t#68 edit
Differences ...
==== //depot/perl/t/op/magic.t#68 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t#67~19935~ Wed Jul 2 13:01:06 2003
+++ perl/t/op/magic.t Thu Jul 3 14:31:47 2003
@@ -292,7 +292,9 @@
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;
End of Patch.
