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/op/defins.t | |
| 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/op/defins.t')
| -rwxr-xr-x | t/op/defins.t | 1 |
1 files changed, 1 insertions, 0 deletions
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; |