Package: release.debian.org
Severity: normal
Tags: stretch
User: release.debian....@packages.debian.org
Usertags: pu
* Add t/timelocal.t fix for Y2K20 problem in t/timelocal.t.
(Closes: #948666)
diff -Nru libperl4-corelibs-perl-0.003/debian/changelog
libperl4-corelibs-perl-0.003/debian/changelog
--- libperl4-corelibs-perl-0.003/debian/changelog 2015-06-05
01:43:28.000000000 +0300
+++ libperl4-corelibs-perl-0.003/debian/changelog 2020-01-26
22:37:58.000000000 +0200
@@ -1,3 +1,11 @@
+libperl4-corelibs-perl (0.003-2+deb9u1) stretch; urgency=medium
+
+ * Non-maintainer upload.
+ * Add t/timelocal.t fix for Y2K20 problem in t/timelocal.t.
+ (Closes: #948666)
+
+ -- Adrian Bunk <b...@debian.org> Sun, 26 Jan 2020 22:37:58 +0200
+
libperl4-corelibs-perl (0.003-2) unstable; urgency=medium
[ Dominic Hargreaves ]
diff -Nru libperl4-corelibs-perl-0.003/debian/patches/series
libperl4-corelibs-perl-0.003/debian/patches/series
--- libperl4-corelibs-perl-0.003/debian/patches/series 1970-01-01
02:00:00.000000000 +0200
+++ libperl4-corelibs-perl-0.003/debian/patches/series 2020-01-26
22:37:55.000000000 +0200
@@ -0,0 +1 @@
+y2k20.patch
diff -Nru libperl4-corelibs-perl-0.003/debian/patches/y2k20.patch
libperl4-corelibs-perl-0.003/debian/patches/y2k20.patch
--- libperl4-corelibs-perl-0.003/debian/patches/y2k20.patch 1970-01-01
02:00:00.000000000 +0200
+++ libperl4-corelibs-perl-0.003/debian/patches/y2k20.patch 2020-01-26
22:37:55.000000000 +0200
@@ -0,0 +1,38 @@
+Description: turn the y2k20 into a y2k40 problem, or fix test failures
starting in 2020
+ t/timelocal.t fails with
+ not ok 31 - timelocal year for 1970 1 2 0 0 0
+ # Failed test 'timelocal year for 1970 1 2 0 0 0'
+ # at t/timelocal.t line 36.
+ # got: '170'
+ # expected: '70'
+ not ok 37 - timegm year for 1970 1 2 0 0 0
+ # Failed test 'timegm year for 1970 1 2 0 0 0'
+ # at t/timelocal.t line 49.
+ # got: '170'
+ # expected: '70'
+Origin: vendor
+Author: gregor herrmann <gre...@debian.org>
+Last-Update: 2020-01-03
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=131341
+Bug: https://rt.cpan.org/Ticket/Display.html?id=131341
+
+--- a/t/timelocal.t
++++ b/t/timelocal.t
+@@ -25,7 +25,7 @@
+
+ # Test timelocal()
+ {
+- my $year_in = $year < 70 ? $year + 1900 : $year;
++ my $year_in = $year < 90 ? $year + 1900 : $year;
+ my $time = &timelocal($sec,$min,$hour,$mday,$mon,$year_in);
+ my($s,$m,$h,$D,$M,$Y) = localtime($time);
+ is $s, $sec, "timelocal second for @$_";
+@@ -38,7 +38,7 @@
+
+ # Test timegm()
+ {
+- my $year_in = $year < 70 ? $year + 1900 : $year;
++ my $year_in = $year < 90 ? $year + 1900 : $year;
+ my $time = &timegm($sec,$min,$hour,$mday,$mon,$year_in);
+ my($s,$m,$h,$D,$M,$Y) = gmtime($time);
+ is $s, $sec, "timegm second for @$_";
