Permalink
Browse files

Added entity decoding for TOC generation titles.

  • Loading branch information...
1 parent a9520eb commit d0905120fdbb587c88fb5b7937872184a50cf93b @chromatic committed Mar 27, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/Pod/PseudoPod/Book/Command/buildepub.pm
@@ -10,6 +10,7 @@ use autodie;
use EBook::EPUB;
use File::Slurp;
use File::Basename;
+use HTML::Entities;
use File::Spec::Functions qw( catfile catdir splitpath );
sub execute
@@ -35,7 +36,8 @@ sub get_toc
my ($level, $identifier, $label) = ($1, $2, $3);
$label =~ s/<[^>]+>//g;
$label =~ s/&amp;/&/g;
- push @toc, [ $level, $identifier, $label, $chapter ];
+ push @toc,
+ [ $level, $identifier, decode_entities($label), $chapter ];
}
}

0 comments on commit d090512

Please sign in to comment.