summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm
parent62170822e034fdd3f81de7274835d0d3b0467100 (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.pm8
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