From 0c838f43dc46f292714c82145c9add9932196b01 Mon Sep 17 00:00:00 2001 From: pmqs Date: Sun, 24 Apr 2022 13:11:58 +0100 Subject: [PATCH] read zip timestamp in localtime --- lib/IO/Uncompress/Unzip.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/IO/Uncompress/Unzip.pm b/lib/IO/Uncompress/Unzip.pm index 7f0cfec..c7d5107 100644 --- a/lib/IO/Uncompress/Unzip.pm +++ b/lib/IO/Uncompress/Unzip.pm @@ -813,9 +813,10 @@ sub _dosToUnixTime my $sec = ( ( $dt << 1 ) & 0x3e ); use Time::Local ; - my $time_t = Time::Local::timegm( $sec, $min, $hour, $mday, $mon, $year); + my $time_t = Time::Local::timelocal( $sec, $min, $hour, $mday, $mon, $year); return 0 if ! defined $time_t; return $time_t; + } #sub scanCentralDirectory