Change 33989 by [EMAIL PROTECTED] on 2008/06/02 13:54:24
Subject: AW: IO::Dir destructor
From: "Dintelmann, Peter" <[EMAIL PROTECTED]>
Date: Mon, 2 Jun 2008 14:48:35 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/DirHandle.pm#9 edit
Differences ...
==== //depot/perl/lib/DirHandle.pm#9 (text) ====
Index: perl/lib/DirHandle.pm
--- perl/lib/DirHandle.pm#8~26638~ 2006-01-04 04:19:49.000000000 -0800
+++ perl/lib/DirHandle.pm 2008-06-02 06:54:24.000000000 -0700
@@ -60,6 +60,7 @@
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);
}
End of Patch.
