This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Precedence problem.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 10 Mar 2002 05:12:08 +0000 (05:12 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 10 Mar 2002 05:12:08 +0000 (05:12 +0000)
p4raw-id: //depot/perl@15140

ext/Socket/socketpair.t

index 4e3f171..242e61c 100644 (file)
@@ -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/ &&