From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Feb 2001 13:38:08 +0000 (+0000)
Subject: fork() not everywhere, cleanup temp files.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27dd2420592a44007a8d1534563f52fae745a50a;p=p5sagit%2Fp5-mst-13.2.git

fork() not everywhere, cleanup temp files.

p4raw-id: //depot/perl@8843
---

diff --git a/t/run/runenv.t b/t/run/runenv.t
index 736e48f..379f6be 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -7,6 +7,10 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    unless ($Config{'d_fork'}) {
+        print "1..0 # Skip: no fork\n";
+	    exit 0;
+    }
 }
 
 my $STDOUT = './results-0';
@@ -135,3 +139,8 @@ try($T++, {PERL5OPT => '-Mstrict -Mwarnings'},
     "");
 
 print "# ", $T-1, " tests total.\n";
+
+END {
+    1 while unlink $STDOUT;
+    1 while unlink $STDERR;
+}