dup saved_curcop in PL_parser

[p5sagit/p5-mst-13.2.git] / t / run / cloexec.t

diff --git a/t/run/cloexec.t b/t/run/cloexec.t
index a9da0bd..dfbae3a 100644 (file)
--- a/t/run/cloexec.t
+++ b/t/run/cloexec.t
@@ -50,12 +50,10 @@ $|=1;
 my $Is_VMS      = $^O eq 'VMS';
 my $Is_MacOS    = $^O eq 'MacOS';
 my $Is_Win32    = $^O eq 'MSWin32';
-my $Is_Cygwin   = $^O eq 'cygwin';
 
 # When in doubt, skip.
 skip_all("MacOS")    if $Is_MacOS;
 skip_all("VMS")      if $Is_VMS;
-skip_all("cygwin")   if $Is_Cygwin;
 skip_all("Win32")    if $Is_Win32;
 
 sub make_tmp_file {
@@ -69,9 +67,9 @@ sub make_tmp_file {
 my $Perl = which_perl();
 my $quote = $Is_VMS || $Is_Win32 ? '"' : "'";
 
-my $tmperr             = 'cloexece.tmp';
-my $tmpfile1           = 'cloexec1.tmp';
-my $tmpfile2           = 'cloexec2.tmp';
+my $tmperr             = tempfile();
+my $tmpfile1           = tempfile();
+my $tmpfile2           = tempfile();
 my $tmpfile1_contents  = "tmpfile1 line 1\ntmpfile1 line 2\n";
 my $tmpfile2_contents  = "tmpfile2 line 1\ntmpfile2 line 2\n";
 make_tmp_file($tmpfile1, $tmpfile1_contents);
@@ -166,9 +164,3 @@ cmp_ok( $parentfd1, '<=', $^F, "parent open fd=$parentfd1 (\$^F=$^F)" );
 test_inherited($parentfd1);
 close FHPARENT1 or die "close '$tmpfile1': $!";
 close FHPARENT2 or die "close '$tmpfile2': $!";
-
-END {
-    defined $tmperr   and unlink($tmperr);
-    defined $tmpfile1 and unlink($tmpfile1);
-    defined $tmpfile2 and unlink($tmpfile2);
-}