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 (file)
--- 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;
+}