[svn-upgrade] Integrating new upstream version, libhtml-calendarmonth-perl (1.19)

[deb_pkgs/libhtml-calendarmonth-perl.git] / current / lib / HTML / CalendarMonth / DateTool / DateTime.pm

diff --git a/current/lib/HTML/CalendarMonth/DateTool/DateTime.pm b/current/lib/HTML/CalendarMonth/DateTool/DateTime.pm
index f6e366d0b3fad6ec3428e93c516ec8a2976c0cdb..9e6e13c4e4ba370ca859f25ccf0cdfca39c1ee9a 100644 (file)
--- a/current/lib/HTML/CalendarMonth/DateTool/DateTime.pm
+++ b/current/lib/HTML/CalendarMonth/DateTool/DateTime.pm
@@ -9,7 +9,7 @@ use vars qw(@ISA $VERSION);
 
 @ISA = qw(HTML::CalendarMonth::DateTool);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use DateTime;
 
@@ -42,7 +42,7 @@ sub dow {
 
 sub add_days {
   my($self, $delta, $day, $month, $year) = @_;
-  $delta || croak "Delta (in days) required.\n";
+  defined $delta || croak "Delta (in days) required.\n";
   $day   || croak "Day required.\n";
   $month ||= $self->month;
   $year  ||= $self->year;