remove fossil debugging statement from do_trans()
authorDavid Mitchell <davem@iabyn.com>
Tue, 26 Dec 2017 16:43:31 +0000 (16:43 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Jan 2018 11:24:55 +0000 (11:24 +0000)
This:

    DEBUG_t( Perl_deb(aTHX_ "2.TBL\n"));

has been around in one form or another since perl1, but it makes no sense
since perl5,000, where -Dt now shows the name of the op being executed.

doop.c

diff --git a/doop.c b/doop.c
index 6dcd05c..9abfcff 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -681,8 +681,6 @@ Perl_do_trans(pTHX_ SV *sv)
        (void)SvPOK_only_UTF8(sv);
     }
 
-    DEBUG_t( Perl_deb(aTHX_ "2.TBL\n"));
-
     /* If we use only OPpTRANS_IDENTICAL to bypass the READONLY check,
      * we must also rely on it to choose the readonly strategy.
      */