From: Dintelmann, Peter <Peter.Dintelmann@dresdner-bank.com>
Date: Mon, 2 Jun 2008 14:48:35 +0000 (+0200)
Subject: AW: IO::Dir destructor
X-Git-Tag: accepted/trunk/20130322.191538~13050
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=04636146cbbfa9d78270f495f3e1948673449d7b;p=platform%2Fupstream%2Fperl.git

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 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);
 }