Package: release.debian.org
Severity: normal
Tags: buster
User: release.debian....@packages.debian.org
Usertags: pu
* Add patch to fix Y2K20 problem.
(Closes: #948682)
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+deb10u1) buster; urgency=medium
+
+ * Non-maintainer upload.
+ * Add patch to fix Y2K20 problem.
+ (Closes: #948682)
+
+ -- Adrian Bunk <b...@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:00.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 <gre...@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");
