read zip timestamp in localtime

pmqs · Apr 24, 2022 · 0c838f4 · 0c838f4
1 parent 3497645
commit 0c838f4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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