diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-19 13:38:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-19 13:38:08 +0000 |
| commit | 27dd2420592a44007a8d1534563f52fae745a50a (patch) | |
| tree | 9f114ce572bf3ed8d54bd055ceb997b3d7dae426 /t/run | |
| parent | bc3c2c500e0ff7dcd88ec70ed7c778f545d28264 (diff) | |
| download | perl-27dd2420592a44007a8d1534563f52fae745a50a.tar.gz | |
fork() not everywhere, cleanup temp files.
p4raw-id: //depot/perl@8843
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/runenv.t | 9 |
1 files changed, 9 insertions, 0 deletions
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; +} |