diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 08:11:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 08:11:29 +0000 |
| commit | db085819db02238c20a7d4facce19a8fa325b992 (patch) | |
| tree | 3381002ad990bb14bf3ddb0ae28d2e5d44dd7b8c /lib/Pod | |
| parent | bbc711f90ce9892bd87879f2349f97d5af48573c (diff) | |
| download | perl-db085819db02238c20a7d4facce19a8fa325b992.tar.gz | |
escape ampersands in <pre> sections
p4raw-id: //depot/perl@3361
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Html.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 4fe7586025..cc770deb4a 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1397,8 +1397,7 @@ sub process_puretext { # sub pre_escape { my($str) = @_; - - $$str =~ s,&,&,g; + $$str =~ s/&(?!\w+;|#)/&/g; # XXX not bulletproof } # |