Cleanup File::Temp test file (revised)
authorJerry D. Hedden <jdhedden@cpan.org>
Fri, 4 Jan 2008 12:39:35 +0000 (07:39 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Jan 2008 11:00:37 +0000 (11:00 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801040939t560c459dm6b780ab3dc5cc6c3@mail.gmail.com>

p4raw-id: //depot/perl@32885

lib/File/Temp/t/fork.t

index 5bf0634..90ca8bd 100644 (file)
@@ -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