diff options
| author | Roderick Schertler <roderick@gate.net> | 1996-12-19 10:30:43 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-12-20 11:14:00 +1200 |
| commit | 7f3dfc00eaef7e421633b2b47af9963dbc626e75 (patch) | |
| tree | dd772805e999c4eec793579ecd436bae7310d1a6 | |
| parent | 28312d68c47acb9f56de892774db5561fea4db01 (diff) | |
| download | perl-7f3dfc00eaef7e421633b2b47af9963dbc626e75.tar.gz | |
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<escape> An HTML escape
E<lt> A literal <
E<gt> A literal >
(these are optional except in other interior
sequences and when preceded by a capital letter)
E<nnn> 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<nnn> 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: <pzwwueimak.fsf@eeyore.ibcinc.com>
| -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 } } |