[7249] Texinfo.pm remove commented-out code

[gavinsmith0123]

Revision: 7249
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7249
Author:   gavin
Date:     2016-07-09 20:26:17 +0000 (Sat, 09 Jul 2016)
Log Message:
-----------
Texinfo.pm remove commented-out code

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-07-09 19:14:17 UTC (rev 7248)
+++ trunk/ChangeLog     2016-07-09 20:26:17 UTC (rev 7249)
@@ -1,5 +1,10 @@
 2016-07-09  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/Texinfo.pm: Remove commented-out debugging 
+       statements.
+
+2016-07-09  Gavin Smith  <address@hidden>
+
        * NEWS, doc/texinfo.texi (Conditional Commands) <@errormsg>: 
        Update to reflect fact that @-commands inside @errormsg is no 
        longer supported.

Modified: trunk/tp/Texinfo/Convert/Texinfo.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Texinfo.pm 2016-07-09 19:14:17 UTC (rev 7248)
+++ trunk/tp/Texinfo/Convert/Texinfo.pm 2016-07-09 20:26:17 UTC (rev 7249)
@@ -69,9 +69,7 @@
   die "convert: bad root type (".ref($root).") $root\n" 
      if (ref($root) ne 'HASH');
   my $result = '';
-  #print STDERR "$root ";
-  #print STDERR "$root->{'type'}" if (defined($root->{'type'}));
-  #print STDERR "\n";
+
   if (defined($root->{'text'})) {
     $result .= $root->{'text'};
   } else {
@@ -82,11 +80,9 @@
        or ($root->{'type'} and ($root->{'type'} eq 'def_line'
                                 or $root->{'type'} eq 'menu_entry'
                                 or $root->{'type'} eq 'menu_comment'))) {
-      #print STDERR "cmd: $root->{'cmdname'}\n";
       $result .= _expand_cmd_args_to_texi($root, $fix);
     }
     $result .= '{' if ($root->{'type'} and $root->{'type'} eq 'bracketed');
-    #print STDERR "$root->{'contents'} @{$root->{'contents'}}\n" if 
(defined($root->{'contents'}));
     if (defined($root->{'contents'})) {
       die "bad contents type(" . ref($root->{'contents'})
           . ") $root->{'contents'}\n" if (ref($root->{'contents'}) ne 'ARRAY');
@@ -102,7 +98,6 @@
       $result .= "\n" if ($block_commands{$root->{'cmdname'}} ne 'raw');
     } 
   }
-  #print STDERR "convert result: $result\n";
   return $result;
 }
 
@@ -131,7 +126,6 @@
   $cmdname = '' if (!$cmd->{'cmdname'}); 
   my $result = '';
   $result = '@'.$cmdname if ($cmdname);
-  #print STDERR "Expand $result\n";
 
   # this is done here otherwise for some constructs, there are
   # no 'args', and so the space is never readded.
@@ -170,7 +164,6 @@
     if ($cmdname eq 'verb') {
       $result .= $cmd->{'type'};
     }
-    #print STDERR "".Data::Dumper->Dump([$cmd]);
     my $arg_nr = 0;
     foreach my $arg (@{$cmd->{'args'}}) {
       if (exists($brace_commands{$cmdname}) or ($cmd->{'type'} 
@@ -187,7 +180,6 @@
     $result .= '}' if ($braces);
   }
   $result .= '{'.$cmd->{'type'}.'}' if ($cmdname eq 'value');
-  #print STDERR "Result: $result\n";
   return $result;
 }