texinfo/Pod-Simple-Texinfo pod2texi.pl lib/Pod/...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        13/02/04 12:49:00

Modified files:
        Pod-Simple-Texinfo: pod2texi.pl 
        Pod-Simple-Texinfo/lib/Pod/Simple: Texinfo.pm 

Log message:
        When doing a @part, do not associate a @node but an @anchor.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/Pod-Simple-Texinfo/pod2texi.pl?cvsroot=texinfo&r1=1.27&r2=1.28
http://cvs.savannah.gnu.org/viewcvs/texinfo/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm?cvsroot=texinfo&r1=1.18&r2=1.19

Patches:
Index: pod2texi.pl
===================================================================
RCS file: /sources/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- pod2texi.pl 4 Feb 2013 10:36:15 -0000       1.27
+++ pod2texi.pl 4 Feb 2013 12:48:59 -0000       1.28
@@ -1,5 +1,5 @@
 #! /usr/bin/env perl
-# $Id: pod2texi.pl,v 1.27 2013/02/04 10:36:15 pertusus Exp $
+# $Id: pod2texi.pl,v 1.28 2013/02/04 12:48:59 pertusus Exp $
 # pod2texi -- convert Pod to Texinfo.
 # Copyright 2012, 2013 Free Software Foundation, Inc.
 # 
@@ -312,6 +312,8 @@
   my $top_node_menu = $labels->{'Top'}->{'menus'}->[0];
   if ($top_node_menu) {
     return Texinfo::Convert::Texinfo::convert($top_node_menu);
+  } else {
+    return '';
   }
 }
 
@@ -462,6 +464,7 @@
   
   print $fh $preamble;
   if ($section_nodes) {
+    #print STDERR "address@hidden address@hidden top\n".$full_manual;
     my $menu = _do_top_node_menu("address@hidden address@hidden 
top\n".$full_manual);
     print $fh $menu."\n";
   }

Index: lib/Pod/Simple/Texinfo.pm
===================================================================
RCS file: 
/sources/texinfo/texinfo/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- lib/Pod/Simple/Texinfo.pm   11 Jul 2012 16:18:34 -0000      1.18
+++ lib/Pod/Simple/Texinfo.pm   4 Feb 2013 12:48:59 -0000       1.19
@@ -197,7 +197,8 @@
       my $anchor = '';
       my $node = '';
       if ($node_name =~ /\S/) {
-        if (!$self->texinfo_section_nodes) {
+        if (!$self->texinfo_section_nodes 
+            or $self->{'texinfo_sectioning_commands'}->[$level] eq 'part') {
           $anchor = "address@hidden";
         } else {
           $node = "address@hidden $node_name\n";