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 (executable)
--- 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 (executable)
--- 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;