diff options
author | Steve Hay <SteveHay@planit.com> | 2008-01-07 12:17:51 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2008-01-07 12:17:51 +0000 |
commit | 5e895007ab03f09eac671ddef26faa6c584ba8b7 (patch) | |
tree | c84638fcca4bbf21f5b152972f6b87c6fa0b2f32 | |
parent | f5df47822a9b069b4d7a24dd025c8f27786c45fa (diff) | |
download | perl-5e895007ab03f09eac671ddef26faa6c584ba8b7.tar.gz |
Win32 doesn't set $Config{d_fork} when its pseudofork emulation is
present, and checking for $Config{d_pseudofork} is no good for dual-
lived modules that must work with older perls, so do a more elaborate
test (as per existing Test-Simple and IO test scripts).
p4raw-id: //depot/perl@32889
-rw-r--r-- | lib/File/Temp/t/fork.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/File/Temp/t/fork.t b/lib/File/Temp/t/fork.t index 90ca8bdddf..a522ca75a4 100644 --- a/lib/File/Temp/t/fork.t +++ b/lib/File/Temp/t/fork.t @@ -7,7 +7,12 @@ use strict; BEGIN { require Config; - if ( $Config::Config{d_fork} ) { + my $can_fork = $Config::Config{d_fork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ + ); + if ( $can_fork ) { print "1..8\n"; } else { print "1..0 # Skip No fork available\n"; |