DateTime dow() returns a negative value in some cases: # perl -e ' use DateTime; $a = DateTime->new( year => -1000 )->truncate( to => "week" )->add( days => 5); print $a->dow, "\n"; '
-1 # perl -e ' use DateTime; $a = DateTime->new( year => -1000 )->truncate( to => "week" )->add( days => 4); print $a->dow, "\n"; ' -2 (DateTime from CPAN, and Perl 5.8.2) - Flavio S. Glock
