Parsing leap seconds

[esabol]

I'm trying to use DateTime::Format::Strptime to parse some date/times, and I can't seem to get it to parse the date/time for leap seconds (e.g., 2012-06-30T23:59:60UTC). The documentation says it supports up to 60 seconds for leap seconds. Am I doing something wrong here or is this a bug?

Here's my code:

use DateTime;
use DateTime::TimeZone;
use DateTime::Format::Strptime;

my $utc = DateTime::TimeZone->new(name => 'Etc/UTC');

my $ymdhms_parser = DateTime::Format::Strptime->new(pattern => '%F %T',
                                                    locale => 'en_US',
                                                    time_zone => $utc,
                                                    strict => 1,
                                                    on_error => 'croak');

print "DateTime $DateTime::VERSION\n";
print "DateTime::LeapSecond $DateTime::LeapSecond::VERSION\n";
print "DateTime::Format::Strptime $DateTime::Format::Strptime::VERSION\n";
my $date = '2012-06-30 23:59:60';
print "date: $date\n";
my $dt = $ymdhms_parser->parse_datetime($date);
print "dt: $dt\n";
print "tz: ",$dt->time_zone,"\n";

The output I get is:

DateTime 1.52
DateTime::LeapSecond 1.52
DateTime::Format::Strptime 1.77
date: 2012-06-30 23:59:60
Parsed values did not produce a valid date at /path/to/test.pl line 17.

[esabol]

Ikegami on StackOverflow set me straight as to what I was doing wrong and suggested a workaround:
https://stackoverflow.com/a/60839787/5153779

I guess I still find this behavior surprising. IMHO, if and only if the pattern does not contain either "%Z" or "%z" and a time_zone argument has been specified, then DateTime::Format::Strptime should pass the time_zone argument to the DateTime constructor instead of floating it and then setting the time zone after the DateTime object is instantiated. What do you think?

[esabol]

This issue is related: houseabsolute/DateTime.pm#103