X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDirHandle.pm;h=65250c3f8394f3fb8192170534915f31e7086ebf;hb=2d3232d7d747c33b17a2f963786d0f00484dbad2;hp=1d259691b46c3e9921a775aedb15cc34191927c8;hpb=95e8664e86da93255f26600f44bbbd70bf5b5b0e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm
index 1d25969..65250c3 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);
 }