This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fork() not everywhere, cleanup temp files.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 19 Feb 2001 13:38:08 +0000 (13:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 19 Feb 2001 13:38:08 +0000 (13:38 +0000)
p4raw-id: //depot/perl@8843

t/run/runenv.t

index 736e48f..379f6be 100644 (file)
@@ -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;
+}