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 /t/base | |
| 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
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/rs.t | 2 |
1 files changed, 2 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 { |