diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm index 3cfd5f3b48..72cbed3522 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm @@ -18,7 +18,7 @@ use File::stat; use File::Spec; our @ISA = qw(Tie::Hash Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT_OK = qw(DIR_UNLINK); @@ -153,7 +153,7 @@ IO::Dir - supply object methods for directory handles =head1 SYNOPSIS use IO::Dir; - $d = IO::Dir->new("."); + my $d = IO::Dir->new("."); if (defined $d) { while (defined($_ = $d->read)) { something($_); } $d->rewind; @@ -161,7 +161,7 @@ IO::Dir - supply object methods for directory handles undef $d; } - tie %dir, 'IO::Dir', "."; + tie my %dir, 'IO::Dir', "."; foreach (keys %dir) { print $_, " " , $dir{$_}->size,"\n"; } @@ -236,7 +236,7 @@ L<File::stat> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT |