This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make use of $Config{d_pseudofork} in a couple of core tests
[perl5.git] / t / op / fork.t
index b344990..2d6232e 100755 (executable)
@@ -6,12 +6,7 @@ BEGIN {
     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;
     }