Deparse: remove spurious tr/// debugging
authorDavid Mitchell <davem@iabyn.com>
Sun, 11 Mar 2018 18:04:53 +0000 (18:04 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 20 Mar 2018 07:59:26 +0000 (07:59 +0000)
I accidentally left a debugging print statement in after my recent tr///
work

lib/B/Deparse.pm

index d110c97..18ac238 100644 (file)
@@ -5613,7 +5613,6 @@ sub tr_decode_byte {
     my($table, $flags) = @_;
     my $ssize_t = $Config{ptrsize} == 8 ? 'q' : 'l';
     my ($size, @table) = unpack("${ssize_t}s*", $table);
-    printf "XXX len=%d size=%d scalar\@table=%d\n", length($table), $size, scalar@table;
     pop @table; # remove the wildcard final entry
 
     my($c, $tr, @from, @to, @delfrom, $delhyphen);