avoid escaping & et al multiple times (variant of fix suggested by

James Cromie <jcromie@fossil.uswc.uswest.com>

p4raw-id: //depot/perl@3031

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 9245315..4fe7586 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1299,7 +1299,7 @@ WARN
 
 sub html_escape {
     my $rest = $_[0];
-    $rest   =~ s/&/&/g;
+    $rest   =~ s/&(?!\w+;|#)/&/g;  # XXX not bulletproof
     $rest   =~ s/</&lt;/g;
     $rest   =~ s/>/&gt;/g;
     $rest   =~ s/"/&quot;/g;