Subject: | incorrect handling of E<..> entities in View::HTML |
view_seq_entity() in View::HTML just emits the entity from the POD.
This is incorrect, because E<0xEF> is legal POD, while �xEF; is not
legal HTML. So here is a proposal to improve that function (code stolen
from Pod::HTML).
sub view_seq_entity {
my ($self, $entity) = @_;
$entity =~ s/^0?x([\dA-F]+)$/#x$1/i # stolen from
Pod::Html
or $entity =~ s/^0([0-7]+)$/'#'.oct($1)/ei
or $entity =~ s/^(\d+)$/#$1/;
return "&$entity;"
}