From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 4 Jan 2008 12:39:35 +0000 (-0500)
Subject: Cleanup File::Temp test file (revised)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8725a05e43ef1f7a09400aa94832e01177df6059;p=p5sagit%2Fp5-mst-13.2.git

Cleanup File::Temp test file (revised)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801040939t560c459dm6b780ab3dc5cc6c3@mail.gmail.com>

p4raw-id: //depot/perl@32885
---

diff --git a/lib/File/Temp/t/fork.t b/lib/File/Temp/t/fork.t
index 5bf0634..90ca8bd 100644
--- a/lib/File/Temp/t/fork.t
+++ b/lib/File/Temp/t/fork.t
@@ -55,7 +55,7 @@ myok( 4, -f $file->filename(), "OO File exists in parent" );
 
 # non-OO interface
 
-my ($fh, $filename) = File::Temp::tempfile( CLEANUP => 1 );
+my ($fh, $filename) = File::Temp::tempfile();
 
 myok( 5, -f $filename, "non-OO File exists" );
 
@@ -83,6 +83,7 @@ while ($children) {
     $children--;
 }
 myok(8, -f $filename, "non-OO File exists in parent" );
+unlink($filename);   # Cleanup
 
 
 # Local ok sub handles explicit number