texinfo/Pod-Simple-Texinfo pod2texi.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/03/13 22:55:57

Modified files:
        Pod-Simple-Texinfo: pod2texi.pl 

Log message:
        After filling gaps in sectioning add missing nodes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/Pod-Simple-Texinfo/pod2texi.pl?cvsroot=texinfo&r1=1.13&r2=1.14

Patches:
Index: pod2texi.pl
===================================================================
RCS file: /sources/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- pod2texi.pl 29 Feb 2012 21:51:09 -0000      1.13
+++ pod2texi.pl 13 Mar 2012 22:55:57 -0000      1.14
@@ -184,10 +184,13 @@
   my $do_master_menu = shift;
   my $parser = Texinfo::Parser::parser();
   my $tree = $parser->parse_texi_text($manual_texi);
-  my $structure = Texinfo::Structuring::sectioning_structure($parser, $tree);
+  if ($fill_gaps_in_sectioning) {
+    $tree->{'contents'} 
+      = Texinfo::Structuring::fill_gaps_in_sectioning($tree);
   $tree->{'contents'} 
-    = Texinfo::Structuring::fill_gaps_in_sectioning($tree) 
-      if ($fill_gaps_in_sectioning);
+      = Texinfo::Structuring::insert_nodes_for_sectioning_commands($parser, 
$tree);
+  }
+  my $structure = Texinfo::Structuring::sectioning_structure($parser, $tree);
   Texinfo::Structuring::complete_tree_nodes_menus($parser, $tree) 
     if ($section_nodes);
   Texinfo::Structuring::regenerate_master_menu($parser) if ($do_master_menu);