Bug#949900: stretch-pu: package libperl4-corelibs-perl/0.003-2+deb9u1

[Adrian Bunk]

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

  * Add t/timelocal.t fix for Y2K20 problem in t/timelocal.t.
    (Closes: #948666)
-------------- next part --------------
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 <bunk at 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 <gregoa at 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 @$_";