From: Hans Mulder <hansmu@xs4all.nl>
Date: Sun, 15 Jun 1997 11:26:17 +0000 (+1200)
Subject: pod2html mangles C<&foo(42);>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbcd949909e8235878afef51bf24ea843fcacde0;p=p5sagit%2Fp5-mst-13.2.git

pod2html mangles C<&foo(42);>

Pod2html does not handle ampersands inside C<> sequences properly.
For example, C<&foo(42);> is translated to <CODE>&foo(42);</CODE>.
This is wrong: the "&" needs to be translated to "&amp;".

p5p-msgid: 199706250057.CAA10162@xs1.xs4all.nl
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 8245334..4e72f3e 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1427,7 +1427,7 @@ sub process_C {
 	$s1 =~ s,(perl\w+/(\S+)\.html)#item_\2\b,$1,; 
 	confess "s1 has space: $s1" if $s1 =~ /HREF="[^"]*\s[^"]*"/;
     } else {
-	$s1 = "<CODE>$str</CODE>";
+	$s1 = "<CODE>" . html_escape($str) . "</CODE>";
 	# warn "$0: $podfile: cannot resolve C<$str> in paragraph $paragraph\n" if $verbose
     }