...and getting the comma right, too.
Jarkko Hietaniemi [Wed, 2 Jul 2003 08:48:00 +0000 (08:48 +0000)]
p4raw-id: //depot/perl@19927

t/op/magic.t

index f0feadb..8f0db78 100755 (executable)
@@ -304,7 +304,7 @@ else {
               # FreeBSD cannot get rid of both the leading "perl :"
               # and the trailing " (perl)": some FreeBSD versions
               # can get rid of the first one.
-              || ($^O eq 'freebsd' && $ps =~ m/^(?:perl: )?x(?: \(perl\))?$/)
+              || ($^O eq 'freebsd' && $ps =~ m/^(?:perl: )?x(?: \(perl\))?$/),
                       'altering $0 is effective (testing with `ps`)');
        } else {
            skip("\$0 check only on Linux and FreeBSD") for 0, 1;