diff options
| author | Dintelmann, Peter <Peter.Dintelmann@dresdner-bank.com> | 2008-06-02 16:48:35 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-06-02 13:54:24 +0000 |
| commit | 04636146cbbfa9d78270f495f3e1948673449d7b (patch) | |
| tree | 9c3897c67a92f87451678d5eb73fd62cf0c4cdba /lib/DirHandle.pm | |
| parent | af638b876ea8e95c91b64f6e1a63718de7548bc1 (diff) | |
| download | perl-04636146cbbfa9d78270f495f3e1948673449d7b.tar.gz | |
AW: IO::Dir destructor
From: "Dintelmann, Peter" <Peter.Dintelmann@dresdner-bank.com>
Message-ID: <3852726AFA94DE4F87E616F13F416A5F0216D9BE@naimucu1.ffz00k.rootdom.net>
p4raw-id: //depot/perl@33989
Diffstat (limited to 'lib/DirHandle.pm')
| -rw-r--r-- | lib/DirHandle.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm index 65250c3f83..e8274a81bc 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); } |