Load libhtml-calendarmonth-perl-1.16 into

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

diff --git a/lib/HTML/CalendarMonth/DateTool/DateCalc.pm b/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
index 97db69135b85ea27cd0a2580636c38a809f4de32..5a8408751f0c60af59b8e47ab4b10a23ca70fcc3 100644 (file)
--- a/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
+++ b/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
@@ -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);
 }