Skip Menu |

This queue is for tickets about the Archive-Zip CPAN distribution.

Report information
The Basics
Id: 124512
Status: resolved
Priority: 0/
Queue: Archive-Zip

People
Owner: Nobody in particular
Requestors: bitcardbmw [...] lsmod.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.60
Fixed in: (no value)



Subject: dates misinterpreted after 2030
similar to https://rt.cpan.org/Public/Bug/Display.html?id=124508 Two-digit years are interpreted depending on current year. This trivial patch fixed it for me: Index: Archive-Zip-1.60/lib/Archive/Zip/Member.pm =================================================================== --- Archive-Zip-1.60.orig/lib/Archive/Zip/Member.pm +++ Archive-Zip-1.60/lib/Archive/Zip/Member.pm @@ -633,7 +633,7 @@ sub _dosToUnixTime { my $dt = shift; return time() unless defined($dt); - my $year = (($dt >> 25) & 0x7f) + 80; + my $year = (($dt >> 25) & 0x7f) + 1980; my $mon = (($dt >> 21) & 0x0f) - 1; my $mday = (($dt >> 16) & 0x1f);
Thanks, fixed in 1.64