diff options
| -rw-r--r-- | pod/perlpod.pod | 4 | ||||
| -rw-r--r-- | pod/pod2html.PL | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/pod/perlpod.pod b/pod/perlpod.pod index dcf615daa3..9fb6b4e21b 100644 --- a/pod/perlpod.pod +++ b/pod/perlpod.pod @@ -108,7 +108,9 @@ here and in commands: E<gt> A literal > (these are optional except in other interior sequences and when preceded by a capital letter) - E<nnn> Character number nnn. + E<n> Character number n + E<html> Some non-numeric HTML entity, such + as E<Agrave> =back diff --git a/pod/pod2html.PL b/pod/pod2html.PL index b41e0c37d6..cc21b0703f 100644 --- a/pod/pod2html.PL +++ b/pod/pod2html.PL @@ -323,6 +323,7 @@ sub scan_thing{ # scan a chunk for later references my($cmd,$title,$pod) = @_; $_ = $title; s/\n$//; + s/E<(\d+)>/&#$1;/g; s/E<(.*?)>/&$1;/g; # remove any formatting information for the headers s/[SFCBI]<(.*?)>/$1/g; @@ -507,6 +508,7 @@ sub pre_escapes { # twiddle these, and stay up late :-) s/&/noremap("&")/ge; s/<</noremap("<<")/eg; s/([^ESIBLCF])</$1\<\;/g; + s/E<(\d+)>/\&#$1\;/g; # embedded numeric special s/E<([^\/][^<>]*)>/\&$1\;/g; # embedded special } } |