summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2018-03-11 18:04:53 +0000
committerDavid Mitchell <davem@iabyn.com>2018-03-20 07:59:26 +0000
commitabba070e941a4be08b2532b32d439a9038b0908e (patch)
treefdf32dbfb3d5782548d72ef2803587d62b09b373 /lib
parent8d8484540d380c09fb40616135be00825189f578 (diff)
downloadperl-abba070e941a4be08b2532b32d439a9038b0908e.tar.gz
Deparse: remove spurious tr/// debugging
I accidentally left a debugging print statement in after my recent tr/// work
Diffstat (limited to 'lib')
-rw-r--r--lib/B/Deparse.pm1
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index d110c970a7..18ac23854d 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -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);