Change 33118 by [EMAIL PROTECTED] on 2008/01/30 09:37:07
Integrate:
[ 32889]
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).
Affected files ...
... //depot/maint-5.10/perl/lib/File/Temp/t/fork.t#2 integrate
Differences ...
==== //depot/maint-5.10/perl/lib/File/Temp/t/fork.t#2 (text) ====
Index: perl/lib/File/Temp/t/fork.t
--- perl/lib/File/Temp/t/fork.t#1~33113~ 2008-01-29 14:22:25.000000000
-0800
+++ perl/lib/File/Temp/t/fork.t 2008-01-30 01:37:07.000000000 -0800
@@ -7,7 +7,12 @@
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";
End of Patch.
