diff options
| author | Zefram <zefram@fysh.org> | 2007-09-08 00:06:36 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-01 19:48:18 +0000 |
| commit | bc3f1c14f93bf857a045b618293617218d759095 (patch) | |
| tree | a35a70e223adb771a10501fdc6f366d95755351c /ext/IO | |
| parent | d685c22b7fe6ce5ea0bf3721b89b801e25222567 (diff) | |
| download | perl-bc3f1c14f93bf857a045b618293617218d759095.tar.gz | |
IO::Dir destructor
Message-ID: <20070907220636.GB24543@fysh.org>
p4raw-id: //depot/perl@33983
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Dir.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/IO/lib/IO/Dir.pm b/ext/IO/lib/IO/Dir.pm index 06892f5c24..8248418086 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); } |