Parsing dates when no year specified, for a future month generates wrong year.
perl -e "use Date::Parse; print str2time('31 Jan');"
1391126400
i.e. Fri, 31 Jan 2014 00:00:00 GMT
but
perl -e "use Date::Parse; print str2time('1 Feb');"
1359676800
i.e. Fri, 01 Feb 2013 00:00:00 GMT
Wrong year: expected output 1391212800 i.e. Sat, 01 Feb 2014 00:00:00 GMT
Code causing the error is line 252, which is always subtracting 1 from the year for a future month when the year is undefined.
$year = ($month > $lt[4]) ? ($lt[5] - 1) : $lt[5]
unless(defined $year);
Date::Parse 2.30
perl, v5.8.8
Migrated from rt.cpan.org#92611 (status was 'new')
Requestors:
From honir999@gmail.com on 2014-01-31 10:31:24 :