Change 33983 by [EMAIL PROTECTED] on 2008/06/01 19:48:18
Subject: IO::Dir destructor
From: Zefram <[EMAIL PROTECTED]>
Date: Fri, 7 Sep 2007 23:06:36 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/IO/lib/IO/Dir.pm#16 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Dir.pm#16 (text) ====
Index: perl/ext/IO/lib/IO/Dir.pm
--- perl/ext/IO/lib/IO/Dir.pm#15~27609~ 2006-03-25 18:49:11.000000000 -0800
+++ perl/ext/IO/lib/IO/Dir.pm 2008-06-01 12:48:18.000000000 -0700
@@ -38,6 +38,7 @@
sub DESTROY {
my ($dh) = @_;
+ local($., $@, $!, $^E, $?);
no warnings 'io';
closedir($dh);
}
End of Patch.
