From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 2 Aug 1998 18:14:22 +0000 (-0400)
Subject: close() open files before unlink()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7120fed67e3f383b4203dc04a44dbe812dc6d370;p=p5sagit%2Fp5-mst-13.2.git

close() open files before unlink()
	Message-Id: <199808022214.SAA20135@monk.mps.ohio-state.edu>
	Subject: [PATCH 5.005_*] File leaked from test suite - tests

p4raw-id: //depot/maint-5.005/perl@1720
---

diff --git a/t/base/rs.t b/t/base/rs.t
index 5428603..52a9572 100755
--- a/t/base/rs.t
+++ b/t/base/rs.t
@@ -85,6 +85,7 @@ $bar = <TESTFILE>;
 if ($bar eq "78") {print "ok 10\n";} else {print "not ok 10\n";}
 
 # Get rid of the temp file
+close TESTFILE;
 unlink "./foo";
 
 # Now for the tricky bit--full record reading
@@ -120,6 +121,7 @@ if ($^O eq 'VMS') {
   $bar = <TESTFILE>;
   if ($bar eq "z\n") {print "ok 14\n";} else {print "not ok 14\n";}
 
+  close TESTFILE;
   unlink "./foo.bar";
   unlink "./foo.com";  
 } else {
diff --git a/t/op/defins.t b/t/op/defins.t
index 0ed61ce..33c74ea 100755
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -61,6 +61,7 @@ while ($where{$seen} = <FILE>)
  }
 print "not " unless $seen;
 print "ok 5\n";
+close FILE;
 
 opendir(DIR,'.');
 $seen = 0;