From: Zefram <zefram@fysh.org>
Date: Fri, 7 Sep 2007 23:06:36 +0000 (+0100)
Subject: IO::Dir destructor
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc3f1c14f93bf857a045b618293617218d759095;p=p5sagit%2Fp5-mst-13.2.git

IO::Dir destructor
Message-ID: <20070907220636.GB24543@fysh.org>

p4raw-id: //depot/perl@33983
---

diff --git a/ext/IO/lib/IO/Dir.pm b/ext/IO/lib/IO/Dir.pm
index 06892f5..8248418 100644
--- a/ext/IO/lib/IO/Dir.pm
+++ b/ext/IO/lib/IO/Dir.pm
@@ -38,6 +38,7 @@ sub new {
 
 sub DESTROY {
     my ($dh) = @_;
+    local($., $@, $!, $^E, $?);
     no warnings 'io';
     closedir($dh);
 }