texinfo/tp/Texinfo Parser.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/11/01 08:44:10

Modified files:
        tp/Texinfo     : Parser.pm 

Log message:
        Register every floats.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.136&r2=1.137

Patches:
Index: Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -b -r1.136 -r1.137
--- Parser.pm   1 Nov 2010 08:31:14 -0000       1.136
+++ Parser.pm   1 Nov 2010 08:44:10 -0000       1.137
@@ -1978,6 +1978,7 @@
                and $current->{'parent'}->{'cmdname'} eq 'float') {
       my $float = $current->{'parent'};
       $float->{'line_nr'} = $line_nr;
+      my $type = '';
       if (@{$float->{'args'}}) {
         if ($float->{'args'}->[1]) {
           my $float_label = _parse_node_manual($float->{'args'}->[1]);
@@ -1989,15 +1990,15 @@
           }
         }
         if (_parse_float_type ($float)) {
-          my $type = $float->{'extra'}->{'type'}->{'normalized'};
+          $type = $float->{'extra'}->{'type'}->{'normalized'};
+        }
+      }
           push @{$self->{'floats'}->{$type}}, $float;
           $float->{'float_section'} = $self->{'current_section'} 
             if (defined($self->{'current_section'}));
           #$float->{'float_node'} = $self->{'current_node'} 
           #  if (defined($self->{'current_node'}));
         }
-      }
-    }
     $current = $current->{'parent'};
     delete $current->{'remaining_args'};
     # don't consider empty argument of block @-commands as argument,