732 B
732 B
$NetBSD: patch-share_html_Helpers_CalPopup.html,v 1.1 2011/10/25 19:38:10 spz Exp $
perl 5.14 qw() in for* fixes
--- share/html/Helpers/CalPopup.html.orig 2011-04-14 00:32:21.000000000 +0000
+++ share/html/Helpers/CalPopup.html
@@ -95,12 +95,12 @@ my @today = localtime(time());
my @weekdays;
push @weekdays, loc($_)
- for qw(Sun Mon Tue Wed Thu Fri Sat);
+ for ( qw(Sun Mon Tue Wed Thu Fri Sat) );
my @months;
push @months, loc($_)
- for qw(January February March April May June July August
- September October November December);
+ for ( qw(January February March April May June July August
+ September October November December) );
unless ($DisplayedYear) {
$DisplayedMonth = $today[4] + 1;