From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Wed, 6 Aug 1997 12:00:00 +0000 (+1200)
Subject: pod2html mangles C<&foo(42);>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb9460edf8a898c5bc341b673bfeff1784c574c6;p=p5sagit%2Fp5-mst-13.2.git

pod2html mangles C<&foo(42);>

(this is the same change as commit cbcd949909e8235878afef51bf24ea843fcacde0, but as applied)
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 8245334..ffeb0b2 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -761,7 +761,7 @@ sub scan_headings {
     # scan for =head directives, note their name, and build an index
     #  pointing to each of them.
     foreach my $line (@data) {
-	if ($line =~ /^\s*=(head)([1-6])\s+(.*)/) {
+	if ($line =~ /^=(head)([1-6])\s+(.*)/) {
 	    ($tag,$which_head, $title) = ($1,$2,$3);
 	    chomp($title);
 	    $$sections{htmlify(0,$title)} = 1;
@@ -788,7 +788,7 @@ sub scan_headings {
     # get rid of bogus lists
     $index =~ s,\t*<UL>\s*</UL>\n,,g;
 
-    $ignore = 1;	# retore old value;
+    $ignore = 1;	# restore old value;
 
     return $index;
 }