From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sat, 9 Mar 2002 14:55:11 +0000 (+0100)
Subject: socketpair.t w/o fork
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffebc68c76e0689738334ed887c5b93d5d71a5f3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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})) {