Ticket #186: pod2ipf137.diff

H:\vendors\cpan\pod2ipf137.cmd

@@ -876 +876 @@
 my $last_hl = 123;              # Very big
 sub output_preheader ($) {      # Fix head3 coming after head2; wrong for IPF
   my $level = shift;            # Warning 121 ==> Warning 110
-  print STDERR "     Jump in level: was $last_hl, now $level.\n"
-    if $level > $last_hl + 1;
-  while ($level > $last_hl + 1) {
-    $last_hl++;                 # Same as tree nodes:
-    print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
+  if (defined $last_hl) {
+    print STDERR "     Jump in level: was $last_hl, now $level.\n"
+      if $level > $last_hl + 1;
+    while ($level > $last_hl + 1) {
+      $last_hl++;                 # Same as tree nodes:
+      print ":h$last_hl group=$groups{tree_nodes} x=left width=10% y=top height=10%.---fake-fix-level-node---\n:p.\n------------ Intentionally blank (missing level in the source POD) -----------\n"
+    }
   }
   $last_hl = $level;
 }
@@ -898 +900 @@
 
   $fname = $ftitle . '.pod';
   if (not -f "./$fname") {      # Protect 'B::C.pod' from accessing B drive
-    $fname = $modnamehash{$ftitle};
+#   $fname = $modnamehash{$ftitle};
+    unless ($fname = $modnamehash{$ftitle}) {print STDERR "!!! $ftitle not found\n"; return};
   }
   $page = $ftitle;
   $toc = substr $maxtoc, -1, 1;
@@ -2000 +2003 @@
          "aacute"        =>     "aa", #   small a, acute accent
          "Acirc"         =>     "ac", #   capital A, circumflex accent
          "acirc"         =>     "ac", #   small a, circumflex accent
-         "AElig"         =>     'Aelig', #   capital AE diphthong (ligature)
+         "AElig"         =>     'AElig', #   capital AE diphthong (ligature)
          "aelig"         =>     'aelig', #   small ae diphthong (ligature)
          "Agrave"        =>     "ag", #   capital A, grave accent
          "agrave"        =>     "ag", #   small a, grave accent
@@ -2268 +2271 @@
                   $used_name = $name_from_pod;
                   # dumpValue(\%alternative_name);
                 } else {
-                  print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod'\n"
+#                 print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod'\n"
+                  print STDERR "\n!!! Not matching: `$_' vs. `$name_from_pod' in $shortpath $longname\n"
                     unless /perlfaq/;
                 }
                 $seen_from_pod{$name_from_pod}++;
@@ -2299 +2303 @@
                 }
                 $skip_sections{"$used_name/NAME"}++ if $skipNAME;
               } else {
-                print STDERR "\n!!! $_: bad NAME: `$theline'\n";
+#               print STDERR "\n!!! $_: bad NAME: `$theline'\n";
+                print STDERR "\n!!! $_: bad NAME: `$theline' in $shortpath $longname\n";
               }
             } elsif ($good) {
-              print STDERR "\n!!! $_: no NAME\n";
+#             print STDERR "\n!!! $_: no NAME\n";
+              print STDERR "\n!!! $_: no NAME in $shortpath $longname\n";
             }
             add_file($used_name, $longname) if $good;
         }