pod2html mangles C<&foo(42);>

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

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 82453344d8..ffeb0b2136 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;
 }