Don't warn about a directory being closed in the DESTROY for
authorSteve Peters <steve@fisharerojo.org>
Mon, 16 Jan 2006 22:31:52 +0000 (22:31 +0000)
committerSteve Peters <steve@fisharerojo.org>
Mon, 16 Jan 2006 22:31:52 +0000 (22:31 +0000)
IO::Dir.

p4raw-id: //depot/perl@26868

ext/IO/lib/IO/Dir.pm

index fccd02c..e8d5fab 100644 (file)
@@ -38,6 +38,7 @@ sub new {
 
 sub DESTROY {
     my ($dh) = @_;
+    no warnings 'io';
     closedir($dh);
 }