add cflags as a dependency for all object files. (it is used to control the arguments...

[p5sagit/p5-mst-13.2.git] / lib / DirHandle.pm

diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm
index 65250c3..0bddec2 100644 (file)
--- a/lib/DirHandle.pm
+++ b/lib/DirHandle.pm
@@ -1,6 +1,6 @@
 package DirHandle;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 =head1 NAME 
 
@@ -60,6 +60,7 @@ sub DESTROY {
     my ($dh) = @_;
     # Don't warn about already being closed as it may have been closed 
     # correctly, or maybe never opened at all.
+    local($., $@, $!, $^E, $?);
     no warnings 'io';
     closedir($dh);
 }