workaround a bug in the discount perl binding

Empty input, or input consisting soley of whitespace
caused an uninitialized value warning.

diff --git a/IkiWiki/Plugin/mdwn.pm b/IkiWiki/Plugin/mdwn.pm
index 0dc0cc336d51556364bf968014158d2d9c0a0620..b10d085174c5d808c322f8c78bc48c8ecaa6bc39 100644 (file)
--- a/IkiWiki/Plugin/mdwn.pm
+++ b/IkiWiki/Plugin/mdwn.pm
@@ -53,7 +53,12 @@ sub htmlize (@) {
                if (! defined $markdown_sub) {
                        eval q{use Text::Markdown::Discount};
                        if (! $@) {
-                               $markdown_sub=\&Text::Markdown::Discount::markdown;
+                               $markdown_sub=sub {
+                                       # Workaround for discount binding bug
+                                       # https://rt.cpan.org/Ticket/Display.html?id=73657
+                                       return "" if $_[0]=~/^\s*$/;
+                                       Text::Markdown::Discount::markdown(@_);
+                               }
                        }
                }
                if (! defined $markdown_sub) {