Getting the whitespace right.
Jarkko Hietaniemi [Wed, 2 Jul 2003 08:46:18 +0000 (08:46 +0000)]
p4raw-id: //depot/perl@19926

t/op/magic.t

index cee52cb..f0feadb 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;