X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FHTML%2FCalendarMonth%2FDateTool%2FDateCalc.pm;fp=lib%2FHTML%2FCalendarMonth%2FDateTool%2FDateCalc.pm;h=5a8408751f0c60af59b8e47ab4b10a23ca70fcc3;hb=71f544d6e70002cf5ddbadbb7a596bec38a69c9b;hp=97db69135b85ea27cd0a2580636c38a809f4de32;hpb=740e6f2e7df13779b2b01fffab67d08c40b6141f;p=deb_pkgs%2Flibhtml-calendarmonth-perl.git

diff --git a/lib/HTML/CalendarMonth/DateTool/DateCalc.pm b/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
index 97db691..5a84087 100644
--- 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);
 }