X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/a14548a6ca2bf384408b2a5f58aa337f55a392bf..40975cd29d4fd1b17e54e7dd24a31b4cc1cdbf5f:/IkiWiki/Plugin/haiku.pm
diff --git a/IkiWiki/Plugin/haiku.pm b/IkiWiki/Plugin/haiku.pm
index e2873ec6f..5d5e8d5aa 100644
--- a/IkiWiki/Plugin/haiku.pm
+++ b/IkiWiki/Plugin/haiku.pm
@@ -4,11 +4,10 @@ package IkiWiki::Plugin::haiku;
use warnings;
use strict;
-use IkiWiki;
+use IkiWiki 2.00;
sub import { #{{{
- IkiWiki::hook(type => "preprocess", id => "haiku",
- call => \&preprocess);
+ hook(type => "preprocess", id => "haiku", call => \&preprocess);
} # }}}
sub preprocess (@) { #{{{
@@ -16,7 +15,7 @@ sub preprocess (@) { #{{{
my $haiku;
eval q{use Coy};
- if ($@) {
+ if ($@ || ! Coy->can("Coy::with_haiku")) {
my @canned=(
"The lack of a Coy:
No darting, subtle haiku.
@@ -43,9 +42,9 @@ sub preprocess (@) { #{{{
}
$haiku=~s/^\s+//mg;
- $haiku=~s/\n/
\n/mg;
+ $haiku=~s/\n/
\n/mg;
- return "\n\n
$haiku\n\n"; + return "\n\n
\n\n"; } # }}} 1$haiku