From 04636146cbbfa9d78270f495f3e1948673449d7b Mon Sep 17 00:00:00 2001
From: "Dintelmann, Peter" <Peter.Dintelmann@dresdner-bank.com>
Date: Mon, 2 Jun 2008 16:48:35 +0200
Subject: [PATCH] AW: IO::Dir destructor From: "Dintelmann, Peter"
 <Peter.Dintelmann@dresdner-bank.com> Message-ID:
 <3852726AFA94DE4F87E616F13F416A5F0216D9BE@naimucu1.ffz00k.rootdom.net>

p4raw-id: //depot/perl@33989
---
 lib/DirHandle.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm
index 65250c3f..e8274a8 100644
--- 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);
 }
-- 
2.7.4