Skip Menu |
 

This queue is for tickets about the XML-FeedPP CPAN distribution.

Report information
The Basics
Id: 124569
Status: resolved
Priority: 0/
Queue: XML-FeedPP

People
Owner: Nobody in particular
Requestors: bitcardbmw [...] lsmod.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.43
Fixed in: (no value)



Subject: timegm should be called with 4-digit year
MIME-Version: 1.0
X-Mailer: MIME-tools 5.504 (Entity 5.504)
X-RT-Interface: Web
Message-ID: <rt-4.0.18-1479-1519547011-938.0-0-0 [...] rt.cpan.org>
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1519547012-1479-2"
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 0
Content-Disposition: inline
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: binary
Content-Length: 102
Download (untitled) / with headers
text/plain 102b
See https://rt.cpan.org/Public/Bug/Display.html?id=124549 please review/test/merge the attached patch
Subject: fix.patch
MIME-Version: 1.0
Content-Type: text/x-patch; name="fix.patch"
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline; filename="fix.patch"
Content-Transfer-Encoding: binary
Content-Length: 1284
Download fix.patch
text/x-diff 1.2k
Index: XML-FeedPP-0.43/lib/XML/FeedPP.pm =================================================================== --- XML-FeedPP-0.43.orig/lib/XML/FeedPP.pm +++ XML-FeedPP-0.43/lib/XML/FeedPP.pm @@ -2468,7 +2468,7 @@ sub w3cdtf_to_rfc1123 { $hour ||= 0; $min ||= 0; $sec ||= 0; - my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year-1900 ); + my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ); my $wday = ( gmtime($epoch) )[6]; if ( defined $tz && $tz ne '' && $tz ne 'Z' ) { my $off = &get_tz_offset($tz) / 60; @@ -2491,7 +2491,7 @@ sub rfc1123_to_epoch { $year += 2000 if $year < 77; $year += 1900 if $year < 100; $mon = $MoY{ uc($mon) } or return; - my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year-1900 ); + my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ); $epoch -= &get_tz_offset( $tz ); $epoch; } @@ -2504,7 +2504,7 @@ sub w3cdtf_to_epoch { $hour ||= 0; $min ||= 0; $sec ||= 0; - my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year-1900 ); + my $epoch = Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ); $epoch -= &get_tz_offset( $tz ); $epoch; }
MIME-Version: 1.0
In-Reply-To: <rt-4.0.18-1479-1519547011-938.0-0-0 [...] rt.cpan.org>
X-Mailer: MIME-tools 5.504 (Entity 5.504)
Content-Disposition: inline
X-RT-Interface: Web
References: <rt-4.0.18-1479-1519547011-938.0-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf-8"
Message-ID: <rt-4.0.18-22902-1524266799-1828.124569-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 14
taken for 0.95


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.