Change 26638 by [EMAIL PROTECTED] on 2006/01/04 12:19:49
Don't warn about invalid dirhandles in DirHandle::DESTROY().
Affected files ...
... //depot/perl/lib/DirHandle.pm#8 edit
Differences ...
==== //depot/perl/lib/DirHandle.pm#8 (text) ====
Index: perl/lib/DirHandle.pm
--- perl/lib/DirHandle.pm#7~10512~ 2001-06-11 05:28:49.000000000 -0700
+++ perl/lib/DirHandle.pm 2006-01-04 04:19:49.000000000 -0800
@@ -1,6 +1,6 @@
package DirHandle;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
=head1 NAME
@@ -58,6 +58,9 @@
sub DESTROY {
my ($dh) = @_;
+ # Don't warn about already being closed as it may have been closed
+ # correctly, or maybe never opened at all.
+ no warnings 'io';
closedir($dh);
}
End of Patch.
