[PATCH} Pod::HTML and HTML4

Message-ID: <3CAB9DAD.20305@pobox.com>

p4raw-id: //depot/perl@15726

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 179b80b..c912319 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1694,7 +1694,8 @@ sub html_escape {
     $rest   =~ s/</&lt;/g;
     $rest   =~ s/>/&gt;/g;
     $rest   =~ s/"/&quot;/g;
-    $rest   =~ s/'/&apos;/g;
+    # &apos; is only in XHTML, not HTML4.  Be conservative
+    #$rest   =~ s/'/&apos;/g;
     return $rest;
 }