X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Flibhtml-calendarmonth-perl.git;a=blobdiff_plain;f=current%2Flib%2FHTML%2FCalendarMonth%2FDateTool%2FDateManip.pm;h=882aed69b970b58118f20f13044e4fafc759575d;hp=0dadef070fe2f6ad850ff29c214cde6a532c00ab;hb=9d8d5103edda5befbcae635c8a6edebe7431e094;hpb=8271142675d51730e1a96d3d184ed49069c2a68c

diff --git a/current/lib/HTML/CalendarMonth/DateTool/DateManip.pm b/current/lib/HTML/CalendarMonth/DateTool/DateManip.pm
index 0dadef0..882aed6 100644
--- a/current/lib/HTML/CalendarMonth/DateTool/DateManip.pm
+++ b/current/lib/HTML/CalendarMonth/DateTool/DateManip.pm
@@ -9,7 +9,7 @@ use vars qw(@ISA $VERSION);
 
 @ISA = qw(HTML::CalendarMonth::DateTool);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use Date::Manip qw(Date_DaysInMonth Date_DayOfWeek DateCalc
                    UnixDate Date_SecsSince1970);
@@ -47,7 +47,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;