From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm') 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 =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to . +bugs at L. =head1 COPYRIGHT -- cgit v1.2.3