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 (file)
--- 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