From 27dd2420592a44007a8d1534563f52fae745a50a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Feb 2001 13:38:08 +0000
Subject: fork() not everywhere, cleanup temp files.

p4raw-id: //depot/perl@8843
---
 t/run/runenv.t | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 't/run')

diff --git a/t/run/runenv.t b/t/run/runenv.t
index 736e48f6fe..379f6be380 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;
+}
-- 
cgit v1.2.1