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);