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 (executable)
--- 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;
        }