From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 10 Mar 2002 05:12:08 +0000 (+0000)
Subject: Precedence problem.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=095a0503139d0a302aafb5098d9481c2b47c10fc;p=p5sagit%2Fp5-mst-13.2.git

Precedence problem.

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

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 4e3f171..242e61c 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -8,8 +8,8 @@ BEGIN {
     @INC = '../lib';
     require Config; import Config;
     $can_fork = $Config{'d_fork'}
-		or ($^O eq 'MSWin32' and $Config{useithreads}
-		    and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/);
+		|| ($^O eq 'MSWin32' && $Config{useithreads}
+		    && $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS\b/);
 
 
     if ($^O eq "hpux" or $Config{'extensions'} !~ /\bSocket\b/ &&