Hello community,
here is the log from the commit of package perl-TimeDate for openSUSE:Factory
checked in at 2020-01-16 18:17:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-TimeDate (Old)
and /work/SRC/openSUSE:Factory/.perl-TimeDate.new.26092 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-TimeDate"
Thu Jan 16 18:17:54 2020 rev:30 rq:763839 version:2.30
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-TimeDate/perl-TimeDate.changes
2020-01-03 17:36:12.879271958 +0100
+++ /work/SRC/openSUSE:Factory/.perl-TimeDate.new.26092/perl-TimeDate.changes
2020-01-16 18:17:57.856863607 +0100
@@ -1,0 +2,6 @@
+Sat Jan 11 04:10:44 UTC 2020 - Bernhard Wiedemann <bwiedem...@suse.com>
+
+- Extend perl-TimeDate-getdate.patch to fix another year-2020 bug
+ (bsc#1159990)
+
+-------------------------------------------------------------------
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-TimeDate-getdate.patch ++++++
--- /var/tmp/diff_new_pack.iEV369/_old 2020-01-16 18:17:58.468863953 +0100
+++ /var/tmp/diff_new_pack.iEV369/_new 2020-01-16 18:17:58.476863958 +0100
@@ -1,3 +1,7 @@
+From: Bernhard M. Wiedemann <bwiedemann suse de>
+Subject: Fix bsc#1159990
+Date: 2020-01-11
+
Index: TimeDate-2.30/t/getdate.t
===================================================================
--- TimeDate-2.30.orig/t/getdate.t
@@ -11,3 +15,41 @@
@data = split(/\n/, $data);
+Index: TimeDate-2.30/t/cpanrt.t
+===================================================================
+--- TimeDate-2.30.orig/t/cpanrt.t
++++ TimeDate-2.30/t/cpanrt.t
+@@ -1,7 +1,7 @@
+ use Date::Format qw(time2str strftime);
+ use Date::Parse qw(strptime str2time);
+
+-print "1..8\n";
++print "1..10\n";
+
+ my $i = 1;
+
+@@ -53,3 +53,11 @@ my $i = 1;
+ print "not " if str2time('16 Oct 09') < 0;
+ print "ok ", $i++, "\n";
+ }
++
++{ # https://rt.cpan.org/Public/Bug/Display.html?id=124509 year 2020 problem
++ print "# 1970-01-01 => 0\n";
++ print "not " if str2time('1970-01-01') != 0;
++ print "ok ", $i++, "\n";
++ print "not " if str2time('01 Jan 70') == 0;
++ print "ok ", $i++, "\n";
++}
+Index: TimeDate-2.30/lib/Date/Parse.pm
+===================================================================
+--- TimeDate-2.30.orig/lib/Date/Parse.pm
++++ TimeDate-2.30/lib/Date/Parse.pm
+@@ -195,7 +195,7 @@ sub {
+ }
+ }
+
+- $year -= 1900 if defined $year && $year > 1900;
++ $year -= 1900 if defined $year && $year > 2000;
+
+ $zone += 3600 if defined $zone && $dst;
+ $ss += "0.$frac" if $frac;
