Don't warn about invalid dirhandles in DirHandle::DESTROY().
authorSteve Peters <steve@fisharerojo.org>
Wed, 4 Jan 2006 12:19:49 +0000 (12:19 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 4 Jan 2006 12:19:49 +0000 (12:19 +0000)
p4raw-id: //depot/perl@26638

lib/DirHandle.pm

index 1d25969..65250c3 100644 (file)
@@ -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);
 }