AW: IO::Dir destructor

From: "Dintelmann, Peter" <Peter.Dintelmann@dresdner-bank.com>
Message-ID: <3852726AFA94DE4F87E616F13F416A5F0216D9BE@naimucu1.ffz00k.rootdom.net>

p4raw-id: //depot/perl@33989

diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm
index 65250c3..e8274a8 100644 (file)
--- a/lib/DirHandle.pm
+++ b/lib/DirHandle.pm
@@ -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);
 }