Added entity decoding for TOC generation titles.

chromatic · Mar 27, 2012 · d090512 · d090512
1 parent a9520eb
commit d090512
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Pod/PseudoPod/Book/Command/buildepub.pm b/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 ];
         }
     }