diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-28 18:49:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-28 18:49:08 +0000 |
| commit | a3c03ba209b02672dbbaf6126566a46706d2337b (patch) | |
| tree | 5ccdb01e9f2f8f8916717d8139eb504e394b5017 /lib/Pod | |
| parent | f19ae7a76ae03aca964bfc271ce674fffe816d24 (diff) | |
| download | perl-a3c03ba209b02672dbbaf6126566a46706d2337b.tar.gz | |
avoid escaping & et al multiple times (variant of fix suggested by
James Cromie <jcromie@fossil.uswc.uswest.com>
p4raw-id: //depot/perl@3031
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Html.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 9245315dbd..4fe7586025 100644 --- 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/</</g; $rest =~ s/>/>/g; $rest =~ s/"/"/g; |