diff options
| -rw-r--r-- | IkiWiki/Plugin/txt.pm | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/IkiWiki/Plugin/txt.pm b/IkiWiki/Plugin/txt.pm index 2670e9b63..22c9ac903 100644 --- a/IkiWiki/Plugin/txt.pm +++ b/IkiWiki/Plugin/txt.pm @@ -10,11 +10,17 @@ use warnings; use strict; use IkiWiki 2.00; use HTML::Entities; -require URI::Find; + +my $findurl=0; sub import { hook(type => "filter", id => "txt", call => \&filter); hook(type => "htmlize", id => "txt", call => \&htmlize); + + eval q{use URI::Find}; + if (! $@) { + $findurl=1; + } } # We use filter to convert raw text to HTML @@ -23,14 +29,15 @@ sub filter (@) { my %params = @_; my $content = $params{content}; - if ($pagesources{$params{page}} =~ /.txt$/) { + if ($pagesources{$params{page}} =~ /\.txt$/) { encode_entities($content); - my $finder = URI::Find->new( - sub { - my ($uri, $orig_uri) = @_; - return qq|<a href="$uri">$orig_uri</a>|; - }); - $finder->find(\$content); + if ($findurl) { + my $finder = URI::Find->new(sub { + my ($uri, $orig_uri) = @_; + return qq|<a href="$uri">$orig_uri</a>|; + }); + $finder->find(\$content); + } $content = "<pre>" . $content . "</pre>"; } |