diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-04 12:19:49 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-04 12:19:49 +0000 |
| commit | 28ee7c3974ce583dcf5abef3b1a6b1835bcb2db7 (patch) | |
| tree | 82ccca4f8a0108aa03db1993eaf3ecae42c6136c /lib/DirHandle.pm | |
| parent | 777c9af2106eb77e4a681db698068dc0e4785155 (diff) | |
| download | perl-28ee7c3974ce583dcf5abef3b1a6b1835bcb2db7.tar.gz | |
Don't warn about invalid dirhandles in DirHandle::DESTROY().
p4raw-id: //depot/perl@26638
Diffstat (limited to 'lib/DirHandle.pm')
| -rw-r--r-- | lib/DirHandle.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm index 1d259691b4..65250c3f83 100644 --- a/lib/DirHandle.pm +++ b/lib/DirHandle.pm @@ -1,6 +1,6 @@ package DirHandle; -our $VERSION = '1.00'; +our $VERSION = '1.01'; =head1 NAME @@ -58,6 +58,9 @@ sub new { sub DESTROY { my ($dh) = @_; + # Don't warn about already being closed as it may have been closed + # correctly, or maybe never opened at all. + no warnings 'io'; closedir($dh); } |