Fix from Enache Adrian for the magic.t failure in

FreeBSD: setproctitle() cannot get rid of the " (perl)".

p4raw-id: //depot/perl@19924

1 files changed, 4 insertions, 2 deletions

diff --git a/t/op/magic.t b/t/op/magic.t
index 28e66d9f41..1f982216aa 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;
 	}