Hello community, here is the log from the commit of package perl-TimeDate for openSUSE:Leap:15.2 checked in at 2020-03-01 08:51:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Leap:15.2/perl-TimeDate (Old) and /work/SRC/openSUSE:Leap:15.2/.perl-TimeDate.new.26092 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-TimeDate" Sun Mar 1 08:51:09 2020 rev:17 rq:779306 version:2.30 Changes: -------- --- /work/SRC/openSUSE:Leap:15.2/perl-TimeDate/perl-TimeDate.changes 2020-01-15 15:43:17.735249981 +0100 +++ /work/SRC/openSUSE:Leap:15.2/.perl-TimeDate.new.26092/perl-TimeDate.changes 2020-03-01 08:51:21.113270625 +0100 @@ -1,0 +2,6 @@ +Tue Feb 4 13:23:42 UTC 2020 - Pedro Monreal Gonzalez <[email protected]> + +- Fix another year-2020 bug [bsc#1162433] + * Update patch perl-TimeDate-getdate.patch + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-TimeDate-getdate.patch ++++++ --- /var/tmp/diff_new_pack.DhfIqZ/_old 2020-03-01 08:51:21.389271173 +0100 +++ /var/tmp/diff_new_pack.DhfIqZ/_new 2020-03-01 08:51:21.389271173 +0100 @@ -1,8 +1,12 @@ +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 +++ TimeDate-2.30/t/getdate.t -@@ -156,7 +156,7 @@ Jul 22 10:00:00 UTC 2002 ;102733200 +@@ -156,7 +156,7 @@ Jul 22 10:00:00 UTC 2002 ;102733200 !; require Time::Local; @@ -11,3 +15,41 @@ @data = split(/\n/, $data); +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; +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"; ++}
