add comments

[git.ikiwiki.info.git] / IkiWiki / Plugin / otl.pm

diff --git a/IkiWiki/Plugin/otl.pm b/IkiWiki/Plugin/otl.pm
index 40c52976171f901e05a576ee80e330b8c139b52b..be339c88ebee44b77371422822ae4816a102cd5e 100644 (file)
--- a/IkiWiki/Plugin/otl.pm
+++ b/IkiWiki/Plugin/otl.pm
@@ -21,13 +21,15 @@ sub filter (@) { #{{{
                "smileys/star_on.png", 0);
        my $unchecked=IkiWiki::htmllink($params{page}, $params{page},
                "smileys/star_off.png", 0);
-       $params{content}=~s/^(\s+)\[X\]\s/${1}$checked /mg;
-       $params{content}=~s/^(\s+)\[_\]\s/${1}$unchecked /mg;
+       $params{content}=~s/^(\s*)\[X\]\s/${1}$checked /mg;
+       $params{content}=~s/^(\s*)\[_\]\s/${1}$unchecked /mg;
         
        return $params{content};
 } # }}}
 
-sub htmlize ($) { #{{{
+sub htmlize (@) { #{{{
+       my %params=@_;
+
        my $tries=10;
        while (1) {
                eval {
@@ -37,14 +39,14 @@ sub htmlize ($) { #{{{
                $tries--;
                if ($tries < 1) {
                        IkiWiki::debug("failed to run otl2html: $@");
-                       return shift;
+                       return $params{content};
                }
        }
        # open2 doesn't respect "use open ':utf8'"
        binmode (IN, ':utf8'); 
        binmode (OUT, ':utf8'); 
        
-       print OUT shift;
+       print OUT $params{content};
        close OUT;
 
        local $/ = undef;