Re: Smoke [5.11.0] 32864 FAIL(F) MSWin32 Win2003 SP2 (x86/1 cpu)
Abe Timmerman [Sun, 6 Jan 2008 12:24:10 +0000 (13:24 +0100)]
Message-ID: <4780BA5A.80202@ztreet.demon.nl>

Skip lib/File/Temp/t/fork.t when there is no fork.

p4raw-id: //depot/perl@32871

lib/File/Temp/t/fork.t

index 2589c22..5bf0634 100644 (file)
@@ -5,7 +5,15 @@ $| = 1;
 
 use strict;
 
-BEGIN { print "1..8\n"; }
+BEGIN {
+    require Config;
+    if ( $Config::Config{d_fork} ) {
+        print "1..8\n";
+    } else {
+        print "1..0 # Skip No fork available\n";
+        exit;
+    }
+}
 
 use File::Temp;