| Subject: | test warnings in make test |
The following patch fixes the three warnings that are given when running make test:
--- libhtml-calendarmonth-perl-1.15.orig/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
+++ libhtml-calendarmonth-perl-1.15/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
@@ -58,7 +58,8 @@
$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);
}
--- libhtml-calendarmonth-perl-1.15.orig/lib/HTML/CalendarMonth/DateTool/DateTime.pm
+++ libhtml-calendarmonth-perl-1.15/lib/HTML/CalendarMonth/DateTool/DateTime.pm
@@ -57,7 +57,8 @@
$month ||= $self->month;
$year ||= $self->year;
my $dt = $self->_new_dt($year, $month, $day);
- my($year, $week) = $dt->week;
+ my $week;
+ ($year, $week) = $dt->week;
($year, $week);
}
--- libhtml-calendarmonth-perl-1.15.orig/lib/HTML/CalendarMonth.pm
+++ libhtml-calendarmonth-perl-1.15/lib/HTML/CalendarMonth.pm
@@ -439,7 +439,6 @@
# What's the max col of the calendar?
my $self = shift;
$self->head_week ? $self->last_week_col + 1 : $self->last_week_col;
- $self->head_week ? $self->last_week_col + 1 : $self->last_week_col;
}
sub last_week_col {