From: Daniel S. Lewart <lewart@uiuc.edu>
Date: Tue, 13 Jun 2000 02:43:48 +0000 (-0500)
Subject: 5.6.0 lib/Pod/{Html,Man,Text}.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a75f6e73f4b39ed488fab2bbb4900e2c3f37f1c;p=p5sagit%2Fp5-mst-13.2.git

5.6.0 lib/Pod/{Html,Man,Text}.pm
Message-ID: <20000613024347.A28388@staff2.cso.uiuc.edu>

p4raw-id: //depot/cfgperl@6275
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 89e3d0f..346495f 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1438,8 +1438,10 @@ sub process_text1($$;$$){
 
     } elsif( $func eq 'E' ){
 	# E<x> - convert to character
-	$$rstr =~ s/^(\w+)>//;
-	$res = "&$1;";
+	$$rstr =~ s/^([^>]*)>//;
+	my $escape = $1;
+	$escape =~ s/^(\d+|X[\dA-F]+)$/#$1/i;
+	$res = "&$escape;";
 
     } elsif( $func eq 'F' ){
 	# F<filename> - italizice
@@ -1940,7 +1942,7 @@ sub depod1($;$$){
       $res .= $$rstr;
   } elsif( $func eq 'E' ){
       # E<x> - convert to character
-      $$rstr =~ s/^(\w+)>//;
+      $$rstr =~ s/^([^>]*)>//;
       $res .= $E2c{$1} || "";
   } elsif( $func eq 'X' ){
       # X<> - ignore
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 8673ba4..439b22c 100644
--- a/lib/Pod/Man.pm
+++ b/lib/Pod/Man.pm
@@ -194,6 +194,8 @@ $PREAMBLE = <<'----END OF PREAMBLE----';
     'lt'        =>    '<',      # left chevron, less-than
     'gt'        =>    '>',      # right chevron, greater-than
     'quot'      =>    '"',      # double quote
+    'sol'       =>    '/',      # solidus
+    'verbar'    =>    '|',      # vertical bar
 
     'Aacute'    =>    "A\\*'",  # capital A, acute accent
     'aacute'    =>    "a\\*'",  # small a, acute accent
diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index f5c1e3d..47dcee5 100644
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -53,6 +53,8 @@ $VERSION = 2.04;
     'lt'        =>    '<',      # left chevron, less-than
     'gt'        =>    '>',      # right chevron, greater-than
     'quot'      =>    '"',      # double quote
+    'sol'       =>    '/',      # solidus
+    'verbar'    =>    '|',      # vertical bar
                                  
     "Aacute"    =>    "\xC1",   # capital A, acute accent
     "aacute"    =>    "\xE1",   # small a, acute accent