# New Ticket Created by Alex Jakimenko
# Please include the string: [perl #125686]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=125686 >
Code:
say DateTime.new('1994-05-03T12:00:00Z').later(days => 536106030).perl; # OK
say DateTime.new('1994-05-03T12:00:00Z').later(days => 536106031).perl; #
Boom!
Result:
DateTime.new(year => 1469802, month => 10, day => 17, hour => 12, minute =>
0, second => 0)
month out of range. Is: 7017915, should be in 1..12
in block <unit> at ./test.pl:3
Similar bug: https://rt.perl.org/Public/Bug/Display.html?id=125682
Please note that there is the same problem with negative offsets:
Code:
say DateTime.new('2015-12-24T12:23:00Z').later(days => -537643698); # OK
say DateTime.new('2015-12-24T12:23:00Z').later(days => -537643699); # Boom!
Result:
-1470003-07-13T12:23:00Z
month out of range. Is: -7017910, should be in 1..12
in block <unit> at ./test.pl:3
