workaround a bug in the discount perl binding

Empty input, or input consisting soley of whitespace
caused an uninitialized value warning.
master
Joey Hess 2012-01-01 17:24:21 -04:00
parent 37f7f125f9
commit 12f86df239
1 changed files with 6 additions and 1 deletions

View File

@ -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) {