Re: missing E<> POD directive in perlpod.pod

diff --git a/pod/perlpod.pod b/pod/perlpod.pod

index dcf615d..9fb6b4e 100644 (file)
--- 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 b41e0c3..cc21b07 100644 (file)
--- 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("&amp;")/ge;
        s/<</noremap("&lt;&lt;")/eg;
        s/([^ESIBLCF])</$1\&lt\;/g;
+       s/E<(\d+)>/\&#$1\;/g;                     # embedded numeric special
        s/E<([^\/][^<>]*)>/\&$1\;/g;              # embedded special
     }
 }
pod/perlpod.pod		patch \| blob \| blame \| history
pod/pod2html.PL		patch \| blob \| blame \| history