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/site/lib/File | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/File')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/File/Listing.pm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/File/Listing.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/File/Listing.pm index b94c5b3910..de1e9eb5db 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/File/Listing.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/File/Listing.pm @@ -4,10 +4,10 @@ use strict; use warnings; use Carp (); use HTTP::Date qw(str2time); -use base qw( Exporter ); +use Exporter 5.57 qw( import ); # ABSTRACT: Parse directory listing -our $VERSION = '6.14'; # VERSION +our $VERSION = '6.16'; # VERSION sub Version { $File::Listing::VERSION; } @@ -121,7 +121,7 @@ sub parse push(@files, $pkg->line($line, $tz, $error)); } } - wantarray ? @files : \@files; ## no critic (Freenode::Wantarray) + wantarray ? @files : \@files; ## no critic (Community::Wantarray) } @@ -246,10 +246,14 @@ sub line my ($date, $size_or_dir, $name, $size); + # usual format: # 02-05-96 10:48AM 1415 src.slf # 09-10-96 09:18AM <DIR> sl_util + # alternative dos format with four-digit year: + # 02-05-2022 10:48AM 1415 src.slf + # 09-10-2022 09:18AM <DIR> sl_util if (($date, $size_or_dir, $name) = - /^(\d\d-\d\d-\d\d\s+\d\d:\d\d\wM) # Date and time info + /^(\d\d-\d\d-\d{2,4}\s+\d\d:\d\d\wM) # Date and time info \s+ # Some space (<\w{3}>|\d+) # Dir or Size \s+ # Some more space @@ -399,7 +403,7 @@ File::Listing - Parse directory listing =head1 VERSION -version 6.14 +version 6.16 =head1 SYNOPSIS @@ -544,6 +548,8 @@ Gavin Peters Graeme Thompson +Grant Street Group + Hans-H. Froehlich Ian Kilgore @@ -608,7 +614,7 @@ uid39246 =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 1996-2020 by Gisle Aas. +This software is copyright (c) 1996-2022 by Gisle Aas. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. |