From 7692a1edf7c7e1676cdb76e2a016e73fa1a5a254 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 16 Jan 2006 22:31:52 +0000
Subject: Don't warn about a directory being closed in the DESTROY for IO::Dir.

p4raw-id: //depot/perl@26868
---
 ext/IO/lib/IO/Dir.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ext/IO')

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);
 }
 
-- 
cgit v1.2.1