socketpair.t w/o fork

From: "Mattia Barbon" <mbarbon@dsi.unive.it>
Message-ID: <3C8A224F.29578.13691BA@localhost>

(modified as suggested by Sarathy)

p4raw-id: //depot/perl@15132

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