* Improve workaround for perl bug #376329. Rather than double-encoding,

[ikiwiki.git] / IkiWiki / Plugin / calendar.pm

diff --git a/IkiWiki/Plugin/calendar.pm b/IkiWiki/Plugin/calendar.pm
index 30e2f26a301d3d24bf71ba0a9d8bece05588ea3c..a4a54d2c8845284746d9c3190bd3791c3e1f2af6 100644 (file)
--- a/IkiWiki/Plugin/calendar.pm
+++ b/IkiWiki/Plugin/calendar.pm
@@ -22,6 +22,7 @@ use warnings;
 use strict;
 use IkiWiki 2.00;
 use Time::Local;
+use POSIX;
 
 my %cache;
 my %linkcache;
@@ -31,7 +32,7 @@ sub import { #{{{
        hook(type => "preprocess", id => "calendar", call => \&preprocess);
 } #}}}
 
-sub is_leap_year (@) { #{{
+sub is_leap_year (@) { #{{{
        my %params=@_;
        return ($params{year} % 4 == 0 && (($params{year} % 100 != 0) || $params{year} % 400 == 0));
 } #}}}
@@ -196,9 +197,9 @@ EOF
         add_depends($params{page}, join(" or ", @list));
 
        return $calendar;
-}
+} #}}}
 
-sub format_year (@) {
+sub format_year (@) { #{{{
        my %params=@_;
 
        my $pagespec = $params{pages};
@@ -299,9 +300,9 @@ EOF
 EOF
 
        return $calendar;
-}
+} #}}}
 
-sub preprocess (@) {
+sub preprocess (@) { #{{{
        my %params=@_;
        $params{pages} = "*"            unless defined $params{pages};
        $params{type}  = "month"        unless defined $params{type};
@@ -363,6 +364,6 @@ sub preprocess (@) {
        }
 
        return "\n<div class=\"calendar\">$calendar</div><!-- calendar -->\n";
-}
+} #}}
 
 1