Change 19924 by [EMAIL PROTECTED] on 2003/07/02 08:17:31
Fix from Enache Adrian for the magic.t failure in
FreeBSD: setproctitle() cannot get rid of the " (perl)".
Affected files ...
... //depot/perl/t/op/magic.t#63 edit
Differences ...
==== //depot/perl/t/op/magic.t#63 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t#62~19921~ Tue Jul 1 22:26:33 2003
+++ perl/t/op/magic.t Wed Jul 2 01:17:31 2003
@@ -299,8 +299,10 @@
$ps;
};
my $ps = $mydollarzero->("x");
- ok(!$ps || # we allow that something goes wrong with the ps command
- $ps eq "x", 'altering $0 is effective (testing with `ps`)');
+ ok(!$ps # we allow that something goes wrong with the ps command
+ # FreeBSD cannot get rid of the trailing " (perl)".
+ || $ps =~ /^x\b/,
+ 'altering $0 is effective (testing with `ps`)');
} else {
skip("\$0 check only on Linux and FreeBSD") for 0, 1;
}
End of Patch.
