Description: fix Y2K20 problem with Time::Local's 50 year window
Origin: vendor
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=124514
Bug-Debian: https://bugs.debian.org/948682
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=124514
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2020-01-12

--- a/lib/Parse/Win32Registry/Base.pm
+++ b/lib/Parse/Win32Registry/Base.pm
@@ -167,7 +167,7 @@
 
     # adjust the UNIX epoch time to the local OS's epoch time
     # (see perlport's Time and Date section)
-    my $epoch_offset = timegm(0, 0, 0, 1, 0, 70);
+    my $epoch_offset = timegm(0, 0, 0, 1, 0, 1970);
     $epoch_time += $epoch_offset;
 
     if ($epoch_time < 0 || $epoch_time > 0x7fffffff) {
--- a/t/misc.t
+++ b/t/misc.t
@@ -502,7 +502,7 @@
     if (defined($time)) {
         # The test data time is a Unix epoch time
         # so is adjusted to the local OS's epoch time
-        my $epoch_offset = timegm(0, 0, 0, 1, 0, 70);
+        my $epoch_offset = timegm(0, 0, 0, 1, 0, 1970);
         $time += $epoch_offset;
         cmp_ok($unpacked_time1, '==', $time,
             "$desc (scalar) unpack_windows_time");