diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-16 22:31:52 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-16 22:31:52 +0000 |
| commit | 7692a1edf7c7e1676cdb76e2a016e73fa1a5a254 (patch) | |
| tree | da3c0e20eaebb24d4aa7b8db251da00ecf757441 /ext/IO | |
| parent | d6069db2e52f58ef65bf59f2fd453604270d2205 (diff) | |
| download | perl-7692a1edf7c7e1676cdb76e2a016e73fa1a5a254.tar.gz | |
Don't warn about a directory being closed in the DESTROY for
IO::Dir.
p4raw-id: //depot/perl@26868
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 fccd02c088..e8d5fab85a 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) = @_; + no warnings 'io'; closedir($dh); } |