package DirHandle;
-our $VERSION = '1.00';
+our $VERSION = '1.02';
=head1 NAME
=head1 SYNOPSIS
use DirHandle;
- $d = new DirHandle ".";
+ $d = DirHandle->new(".");
if (defined $d) {
while (defined($_ = $d->read)) { something($_); }
$d->rewind;
use Symbol;
sub new {
- @_ >= 1 && @_ <= 2 or croak 'usage: new DirHandle [DIRNAME]';
+ @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
my $class = shift;
my $dh = gensym;
if (@_) {
sub DESTROY {
my ($dh) = @_;
+ # Don't warn about already being closed as it may have been closed
+ # correctly, or maybe never opened at all.
+ local($., $@, $!, $^E, $?);
+ no warnings 'io';
closedir($dh);
}