[7846] Parser.pm remove debugging code

[gavinsmith0123]

Revision: 7846
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7846
Author:   gavin
Date:     2017-06-24 15:20:24 -0400 (Sat, 24 Jun 2017)
Log Message:
-----------
Parser.pm remove debugging code

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-06-24 19:17:18 UTC (rev 7845)
+++ trunk/ChangeLog     2017-06-24 19:20:24 UTC (rev 7846)
@@ -1,5 +1,10 @@
 2017-06-24  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Parser.pm (_parse_texi): Remove debugging code
+       to dump parse tree every time a new line is read.
+
+2017-06-24  Gavin Smith  <address@hidden>
+
        * configure.ac: Increase version to 6.4dev.  Remove "dist-xz" 
        option.
 

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2017-06-24 19:17:18 UTC (rev 7845)
+++ trunk/tp/Texinfo/Parser.pm  2017-06-24 19:20:24 UTC (rev 7846)
@@ -3685,17 +3685,10 @@
     last if (!defined($line));
 
     if ($self->{'DEBUG'}) {
-      $current->{'HERE !!!!'} = 1; # marks where we are in the tree
-      if ($self->{'DEBUG'} >= 100) {
-        local $Data::Dumper::Indent = 1;
-        local $Data::Dumper::Purity = 1;
-        print STDERR "".Data::Dumper->Dump([$root], ['$root']);
-      }
       my $line_text = '';
       $line_text = "$line_nr->{'line_nr'}.$line_nr->{'macro'}" if ($line_nr);
       print STDERR "NEW LINE(".join('|', 
@{$self->{'context_stack'}}).":@{$self->{'conditionals_stack'}}:$line_text): 
$line";
       #print STDERR "CONTEXT_STACK 
".join('|',@{$self->{'context_stack'}})."\n";
-      delete $current->{'HERE !!!!'};
     }
 
     if (not