texinfo/tp/Texinfo Structuring.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/06/30 23:42:37

Modified files:
        tp/Texinfo     : Structuring.pm 

Log message:
        Don't return an element if the command is not a node (float or anchor).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Structuring.pm?cvsroot=texinfo&r1=1.63&r2=1.64

Patches:
Index: Structuring.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Structuring.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- Structuring.pm      7 Jun 2011 23:23:17 -0000       1.63
+++ Structuring.pm      30 Jun 2011 23:42:37 -0000      1.64
@@ -650,8 +650,11 @@
   if ($node->{'extra'} and $node->{'extra'}->{'manual_content'}) {
     return _new_external_node($node->{'extra'}->{'node_content'},
                               $node->{'extra'}->{'manual_content'});
-  } else {
+  } elsif ($node->{'cmdname'} and $node->{'cmdname'} eq 'node') {
     return $node->{'parent'};
+  } else {
+    #Â case of a @float or an @anchor
+    return undef;
   }
 }