Bug#949909: stretch-pu: package libparse-win32registry-perl/1.0-2+deb9u1

[Adrian Bunk]

Package: release.debian.org
Severity: normal
Tags: stretch
User: release.debian.org at packages.debian.org
Usertags: pu

  * Add patch to fix Y2K20 problem.
    (Closes: #948682)
-------------- next part --------------
diff -Nru libparse-win32registry-perl-1.0/debian/changelog libparse-win32registry-perl-1.0/debian/changelog
--- libparse-win32registry-perl-1.0/debian/changelog	2015-08-08 15:12:14.000000000 +0300
+++ libparse-win32registry-perl-1.0/debian/changelog	2020-01-26 23:27:04.000000000 +0200
@@ -1,3 +1,11 @@
+libparse-win32registry-perl (1.0-2+deb9u1) stretch; urgency=medium
+
+  * Non-maintainer upload.
+  * Add patch to fix Y2K20 problem.
+    (Closes: #948682)
+
+ -- Adrian Bunk <bunk at debian.org>  Sun, 26 Jan 2020 23:27:04 +0200
+
 libparse-win32registry-perl (1.0-2) unstable; urgency=medium
 
   * Gave package to the Debian Perl Group, added Vcs-* fields
diff -Nru libparse-win32registry-perl-1.0/debian/patches/series libparse-win32registry-perl-1.0/debian/patches/series
--- libparse-win32registry-perl-1.0/debian/patches/series	1970-01-01 02:00:00.000000000 +0200
+++ libparse-win32registry-perl-1.0/debian/patches/series	2020-01-26 23:27:04.000000000 +0200
@@ -0,0 +1 @@
+y2k20.patch
diff -Nru libparse-win32registry-perl-1.0/debian/patches/y2k20.patch libparse-win32registry-perl-1.0/debian/patches/y2k20.patch
--- libparse-win32registry-perl-1.0/debian/patches/y2k20.patch	1970-01-01 02:00:00.000000000 +0200
+++ libparse-win32registry-perl-1.0/debian/patches/y2k20.patch	2020-01-26 23:27:04.000000000 +0200
@@ -0,0 +1,30 @@
+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 at 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");