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 82453344d8d21a3f74a87cac209e23ffadb8f485..ffeb0b21361037acf910a3ea7af015b08188b297 100644 (file)
--- 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;
 }