From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 Jul 2003 08:17:31 +0000 (+0000)
Subject: Fix from Enache Adrian for the magic.t failure in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e26ae24d00b4db2355949e2f0fcd0f6abaa857e3;p=p5sagit%2Fp5-mst-13.2.git

Fix from Enache Adrian for the magic.t failure in
FreeBSD: setproctitle() cannot get rid of the " (perl)".

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

diff --git a/t/op/magic.t b/t/op/magic.t
index 28e66d9..1f98221 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -299,8 +299,10 @@ else {
               $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;
 	}