Load /home/don/tmp/tmp.QFHG70/libhtml-calendarmonth-perl-1.18 into

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

diff --git a/current/lib/HTML/CalendarMonth/DateTool/DateCalc.pm b/current/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
index 97db69135b85ea27cd0a2580636c38a809f4de32..17c3ed5dea5c9c5cb032b138baaa14cf591e1649 100644 (file)
--- a/current/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
+++ b/current/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
@@ -9,7 +9,7 @@ use vars qw(@ISA $VERSION);
 
 @ISA = qw(HTML::CalendarMonth::DateTool);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use Date::Calc qw(Days_in_Month Day_of_Week Add_Delta_Days
                   Weeks_in_Year Week_of_Year Week_Number Mktime
@@ -58,7 +58,8 @@ sub week_of_year {
   $day || croak "Day required.\n";
   $month ||= $self->month;
   $year  ||= $self->year;
-  my($week, $year) = Week_of_Year($year, $month, $day);
+  my $week;
+  ($week, $year) = Week_of_Year($year, $month, $day);
   ($year, $week);
 }