From 7f3dfc00eaef7e421633b2b47af9963dbc626e75 Mon Sep 17 00:00:00 2001 From: Roderick Schertler Date: Thu, 19 Dec 1996 10:30:43 -0500 Subject: [PATCH] Re: missing E<> POD directive in perlpod.pod On Thu, 19 Dec 1996 07:53:26 +0100 (MET), sb@sdm.de (Steffen Beyer) said: > > If only E<> was mentioned in perlpod.pod! :-) Thanks for the heads up, it's already in the next perlpod.pod. E An HTML escape E A literal < E A literal > (these are optional except in other interior sequences and when preceded by a capital letter) E Character number nnn. Porters, note this doesn't actually mention that the HTML entity names are valid, here's a patch. It also change E to use only one n, as none of the translators care how many digits the number has. It also fixes numeric escapes in pod2html. p5p-msgid: --- pod/perlpod.pod | 4 +++- pod/pod2html.PL | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/pod/perlpod.pod b/pod/perlpod.pod index dcf615d..9fb6b4e 100644 --- a/pod/perlpod.pod +++ b/pod/perlpod.pod @@ -108,7 +108,9 @@ here and in commands: E A literal > (these are optional except in other interior sequences and when preceded by a capital letter) - E Character number nnn. + E Character number n + E Some non-numeric HTML entity, such + as E =back diff --git a/pod/pod2html.PL b/pod/pod2html.PL index b41e0c3..cc21b07 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/</\&#$1\;/g; # embedded numeric special s/E<([^\/][^<>]*)>/\&$1\;/g; # embedded special } } -- 2.7.4