Call $tree->no_expand_entities(1) to avoid HTML entities decoded.fix m…

…izzy#7.
kentaro · Jan 12, 2012 · e61b659 · e61b659
1 parent 89a43e4
commit e61b659
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/webiblo.pl b/webiblo.pl
@@ -85,11 +85,14 @@ sub get_content {
     mirror($uri, "tmp/$file") unless -f "tmp/$file";
 
     my $tree = HTML::TreeBuilder::XPath->new;
+    $tree->no_expand_entities(1);
     $tree->parse_file("tmp/$file");
+    $tree->eof;
 
     if ( $book->{content_xpath} ) {
         my $content = ($tree->findnodes($book->{content_xpath}))[0];
         $tree = HTML::TreeBuilder::XPath->new;
+        $tree->no_expand_entities(1);
         $tree->parse($content->as_XML);
         $tree->eof;
     }