Subject: | Failure on February 29th |
The following code:
use DateTime;
use DateTime::Calendar::Discordian;
my $d0 = DateTime->new(year => 2016, month => 2, day => 29);
my $d1 = DateTime::Calendar::Discordian->from_object(object => $d0);
print $d1->strftime("Discordian\n%Y-%b-%d, %{%A %d %B%} %Y %N%H\n");
fails with:
Use of uninitialized value in hash element at /home/jf/perl5/lib/perl5/DateTime/Calendar/Discordian.pm line 389.
Use of uninitialized value in substitution iterator at /home/jf/perl5/lib/perl5/DateTime/Calendar/Discordian.pm line 526.
Discordian
3182--St. Tib's Day, St. Tib's Day 3182
What is wrong? Can you fix please?