Blame SOURCES/perl-5.19.4-Fix-day-of-year-parsing.patch
|
|
34a232 |
diff -up perl-5.16.3/cpan/Time-Piece/Piece.pm.orig perl-5.16.3/cpan/Time-Piece/Piece.pm
|
|
|
34a232 |
diff -up perl-5.16.3/cpan/Time-Piece/Piece.xs.orig perl-5.16.3/cpan/Time-Piece/Piece.xs
|
|
|
34a232 |
--- perl-5.16.3/cpan/Time-Piece/Piece.xs.orig 2019-09-12 09:15:44.736310909 +0200
|
|
|
34a232 |
+++ perl-5.16.3/cpan/Time-Piece/Piece.xs 2019-09-12 09:17:16.165736334 +0200
|
|
|
34a232 |
@@ -584,6 +584,7 @@ label:
|
|
|
34a232 |
return 0;
|
|
|
34a232 |
|
|
|
34a232 |
tm->tm_yday = i - 1;
|
|
|
34a232 |
+ tm->tm_mday = 0;
|
|
|
34a232 |
break;
|
|
|
34a232 |
|
|
|
34a232 |
case 'M':
|
|
|
34a232 |
diff -up perl-5.16.3/cpan/Time-Piece/t/02core.t.orig perl-5.16.3/cpan/Time-Piece/t/02core.t
|
|
|
34a232 |
--- perl-5.16.3/cpan/Time-Piece/t/02core.t.orig 2019-09-12 09:18:37.932011102 +0200
|
|
|
34a232 |
+++ perl-5.16.3/cpan/Time-Piece/t/02core.t 2019-09-12 09:19:15.059589937 +0200
|
|
|
34a232 |
@@ -1,4 +1,4 @@
|
|
|
34a232 |
-use Test::More tests => 95;
|
|
|
34a232 |
+use Test::More tests => 96;
|
|
|
34a232 |
|
|
|
34a232 |
my $is_win32 = ($^O =~ /Win32/);
|
|
|
34a232 |
my $is_qnx = ($^O eq 'qnx');
|
|
|
34a232 |
@@ -215,6 +215,12 @@ cmp_ok(Time::Piece->strptime("2002/12/31
|
|
|
34a232 |
cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->isdst, '==', 0);
|
|
|
34a232 |
cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->day_of_week, '==', 3);
|
|
|
34a232 |
|
|
|
34a232 |
+is(
|
|
|
34a232 |
+ Time::Piece->strptime('12212', "%y%j")->ymd(),
|
|
|
34a232 |
+ '2012-07-30',
|
|
|
34a232 |
+ "day of the year parsing",
|
|
|
34a232 |
+);
|
|
|
34a232 |
+
|
|
|
34a232 |
cmp_ok(
|
|
|
34a232 |
Time::Piece->strptime("2000/02/29 12:34:56", '%Y/%m/%d %H:%M:%S')->epoch,
|
|
|
34a232 |
'==',
|