diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-08-02 14:14:22 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 23:33:42 +0000 |
| commit | 7120fed67e3f383b4203dc04a44dbe812dc6d370 (patch) | |
| tree | 44531c7983b1c8c46848a7d575643888bb9907cd | |
| parent | eddc390b857822ea7e06f75e568c736ee2f8c72d (diff) | |
| download | perl-7120fed67e3f383b4203dc04a44dbe812dc6d370.tar.gz | |
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
| -rwxr-xr-x | t/base/rs.t | 2 | ||||
| -rwxr-xr-x | t/op/defins.t | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 5428603304..52a957260f 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 0ed61ce2fb..33c74ea28e 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; |