diff options
| author | David Mitchell <davem@iabyn.com> | 2018-03-11 18:04:53 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2018-03-20 07:59:26 +0000 |
| commit | abba070e941a4be08b2532b32d439a9038b0908e (patch) | |
| tree | fdf32dbfb3d5782548d72ef2803587d62b09b373 | |
| parent | 8d8484540d380c09fb40616135be00825189f578 (diff) | |
| download | perl-abba070e941a4be08b2532b32d439a9038b0908e.tar.gz | |
Deparse: remove spurious tr/// debugging
I accidentally left a debugging print statement in after my recent tr///
work
| -rw-r--r-- | lib/B/Deparse.pm | 1 |
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); |