Steven Weinberger wrote:
>
> Flavio, do you still see a problem with the code? I think it works fine (independent
> of the bug below).
I've written a small test:
use strict;
use DateTime::Calendar::Hebrew;
use DateTime::Event::Sunrise;
my $sunset = DateTime::Event::Sunrise->sunset (
# Latitude/Longitude for NYC
longitude =>'-73.59',
latitude =>'40.38',
);
my $h = DateTime::Calendar::Hebrew->new(
year => 5000, month => 5, day => 15,
sunset => $sunset,
time_zone => 'America/New_York' );
print $h->datetime, " - some random date\n";
$h->set( hour => 22 );
print $h->datetime, " - set hour => 22 changes the day!\n";
$h->set( day => 18 );
print $h->datetime, " - set day => 18 sets wrong day!\n";
# 5000-05-16T00:00:00 - some random date
# 5000-05-17T22:00:00 - set hour => 22 changes the day!
# 5000-05-19T22:00:00 - set day => 18 sets wrong day!
- Flavio S. Glock
