Version in base suite: 1.0-2 Base version: libparse-win32registry-perl_1.0-2 Target version: libparse-win32registry-perl_1.0-2+deb10u1 Base file: /srv/ftp-master.debian.org/ftp/pool/main/libp/libparse-win32registry-perl/libparse-win32registry-perl_1.0-2.dsc Target file: /srv/ftp-master.debian.org/policy/pool/main/libp/libparse-win32registry-perl/libparse-win32registry-perl_1.0-2+deb10u1.dsc changelog | 8 ++++++++ patches/series | 1 + patches/y2k20.patch | 30 ++++++++++++++++++++++++++++++ 3 files changed, 39 insertions(+) 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 12:12:14.000000000 +0000 +++ libparse-win32registry-perl-1.0/debian/changelog 2020-01-26 21:27:04.000000000 +0000 @@ -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 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 00:00:00.000000000 +0000 +++ libparse-win32registry-perl-1.0/debian/patches/series 2020-01-26 21:27:04.000000000 +0000 @@ -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 00:00:00.000000000 +0000 +++ libparse-win32registry-perl-1.0/debian/patches/y2k20.patch 2020-01-26 21:27:00.000000000 +0000 @@ -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 +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");