CC: | jkeenan [...] cpan.org |
Some items originally reported in the Perl 5 bug tracker:
#####
1. https://rt.perl.org/Ticket/Display.html?id=132896
#132896: timegm should be called with 4-digit year
This is a bug report for perl from perlbugbmw@lsmod.de,
generated with the help of perlbug 1.39 running under perl 5.18.2.
timegm should be called with 4-digit year
to avoid ambiguities in Time::Local with 2-digit years
please review/test/merge this fix:
--- perl-5.26.1.orig/cpan/libnet/lib/Net/NNTP.pm
+++ perl-5.26.1/cpan/libnet/lib/Net/NNTP.pm
@@ -601 +601 @@ sub date {
- ? timegm($6, $5, $4, $3, $2 - 1, $1 - 1900)
+ ? timegm($6, $5, $4, $3, $2 - 1, $1)
#####
#####
2. https://rt.perl.org/Ticket/Display.html?id=132898
#132898: timegm should be called with 4-digit year
This is a bug report for perl from perlbugbmw@lsmod.de,
generated with the help of perlbug 1.39 running under perl 5.18.2.
timegm should be called with 4-digit year
to avoid ambiguities in Time::Local with 2-digit years
please review/test/merge this fix:
--- perl-5.26.1.orig/cpan/libnet/lib/Net/FTP.pm
+++ perl-5.26.1/cpan/libnet/lib/Net/FTP.pm
@@ -267 +267 @@ sub mdtm {
- ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? $3 : ($1 - 1900))
+ ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? ($3 + 1900) : $1)
#####