use perl modules up front

The old code actually did the same thing, just obfuscated -- since the eval
use wasn't quoted, it used the modules on load. Thus, the error (not to
mentioned the return) was bypassed, and it just failed on load.

But that seems like the right thing to do, really, so just made it clearer
that's what happens.
Joey Hess 2008-11-17 14:19:15 -05:00
parent 87f360dee4
commit e8a945845b
1 changed files with 2 additions and 10 deletions

View File

@ -10,6 +10,8 @@ package IkiWiki::Plugin::htmlbalance;
use warnings;
use strict;
use IkiWiki 2.00;
use HTML::TreeBuilder;
use XML::Atom::Util qw(encode_xml);
sub import { #{{{
hook(type => "getsetup", id => "htmlbalance", call => \&getsetup);
@ -28,16 +30,6 @@ sub sanitize (@) { #{{{
my %params=@_;
my $ret = '';
eval {
use HTML::TreeBuilder;
use XML::Atom::Util qw(encode_xml);
};
if ($@) {
error($@);
return $params{content};
}
my $tree = HTML::TreeBuilder->new_from_content($params{content});
my @nodes = $tree->disembowel();
foreach my $node (@nodes) {