diff options
| author | Ricardo SIGNES <rjbs@cpan.org> | 2009-01-20 18:32:17 -0500 |
|---|---|---|
| committer | Vincent Pit <vince@profvince.com> | 2009-01-21 16:54:16 +0100 |
| commit | 2b393bf410d9f1bf0b80132c4e8b5d6707a139f8 (patch) | |
| tree | fba97a93f415d38a8053cb90ef68b23c24b7de7e /lib/DirHandle.pm | |
| parent | 797f796a9610b63f252016d76732152c8ff9fb39 (diff) | |
| download | perl-2b393bf410d9f1bf0b80132c4e8b5d6707a139f8.tar.gz | |
now get non-dual lived code
Diffstat (limited to 'lib/DirHandle.pm')
| -rw-r--r-- | lib/DirHandle.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/DirHandle.pm b/lib/DirHandle.pm index 0bddec2d03..757bf4b841 100644 --- a/lib/DirHandle.pm +++ b/lib/DirHandle.pm @@ -9,7 +9,7 @@ DirHandle - supply object methods for directory handles =head1 SYNOPSIS use DirHandle; - $d = new DirHandle "."; + $d = DirHandle->new("."); if (defined $d) { while (defined($_ = $d->read)) { something($_); } $d->rewind; @@ -46,7 +46,7 @@ use Carp; 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 (@_) { |