Change 29485: Make use of $Config{d_pseudofork} in a couple of core tests

[Steve Hay]

Change 29485 by [EMAIL PROTECTED] on 2006/12/07 12:34:10

        Make use of $Config{d_pseudofork} in a couple of core tests
        
        Can't really use it in ext/IO/t/*.t and lib/Test/Simple/t/fork.t
        because they are dual-lived modules and must work with older perls
        that don't have d_pseudofork

Affected files ...

... //depot/perl/ext/Socket/t/socketpair.t#2 edit
... //depot/perl/t/op/fork.t#26 edit

Differences ...

==== //depot/perl/ext/Socket/t/socketpair.t#2 (text) ====
Index: perl/ext/Socket/t/socketpair.t
--- perl/ext/Socket/t/socketpair.t#1~20269~     2003-07-28 08:07:22.000000000 
-0700
+++ perl/ext/Socket/t/socketpair.t      2006-12-07 04:34:10.000000000 -0800
@@ -8,16 +8,13 @@
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    $can_fork = $Config{'d_fork'}
-               || ($^O eq 'MSWin32' && $Config{useithreads}
-                   && $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS\b/);
-
+    $can_fork = $Config{'d_fork'} || $Config{'d_pseudofork'};
 
     if ($^O eq "hpux" or $Config{'extensions'} !~ /\bSocket\b/ &&
         !(($^O eq 'VMS') && $Config{d_socket})) {
        print "1..0\n";
        exit 0;
-      }
+    }
 
     # Too many things in this test will hang forever if something is wrong,
     # so we need a self destruct timer. And IO can hang despite an alarm.

==== //depot/perl/t/op/fork.t#26 (xtext) ====
Index: perl/t/op/fork.t
--- perl/t/op/fork.t#25~28215~  2006-05-17 10:06:26.000000000 -0700
+++ perl/t/op/fork.t    2006-12-07 04:34:10.000000000 -0800
@@ -6,12 +6,7 @@
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    unless ($Config{'d_fork'}
-           or (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads}
-               and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ 
-#               and !defined $Config{'useperlio'}
-               ))
-    {
+    unless ($Config{'d_fork'} or $Config{'d_pseudofork'}) {
        print "1..0 # Skip: no fork\n";
        exit 0;
     }
End of Patch.