Perl_debop() / -Dt: display some OP args better

Perl_debop() displays an op in a compact one-line form, typically used
by 'perl -Dt' to show the next op to be executed.

This commit improves the display of some ops slightly: in particular,
where the name of a GV argument to the op, or the name of the associated
lexical var is displayed, sometimes this wasn't being done, for example
for the new op OP_PADSV_STORE, which probably just got missed when being
added.

It also now displays:

* the name of the lexical var for ops which have the OPpTARGET_MY
  optimisation;

* the name of the method and redirect class for method ops;

* the index of the aelemfast and aelemfast_lex op

For example, with the following code:

    my ($sum);
    sub Bar::foo {}
    my $obj = bless {}, 'Foo';
    my @lexary;

    $^D='t';

    $sum = 1;
    $sum = $ary[-2] + $lexary[3];
    $obj->Bar::foo();
    $x .= <>;

then before, the -Dt output for certain lines was:

    padsv_store
    aelemfast
    aelemfast_lex
    add
    method_redir
    rcatline

and is now:

    padsv_store($sum)
    aelemfast(main::ary)[-2]
    aelemfast_lex(@lexary)[3]
    add($sum)
    method_redir(PV("foo"))(PV("Bar"))
    rcatline(main::ARGV)

Author: iabyn

dump.c

@@ -3515,15 +3515,40 @@ Perl_debop(pTHX_ const OP *o)
         break;
     case OP_GVSV:
     case OP_GV:
+    case OP_AELEMFAST:
+    case OP_RCATLINE:
         PerlIO_printf(Perl_debug_log, "(%" SVf ")",
                 SVfARG(S_gv_display(aTHX_ cGVOPo_gv)));
+        if (o->op_type == OP_AELEMFAST)
+          do_fast_ix:
+            PerlIO_printf(Perl_debug_log, "[%" IVdf "]",
+                (IV)(I8)o->op_private);
+        break;
+
+    case OP_METHOD_NAMED:       /* $obj->foo              */
+    case OP_METHOD_SUPER:       /* $obj->SUPER::foo       */
+    case OP_METHOD_REDIR:       /* $obj->BAR::foo         */
+    case OP_METHOD_REDIR_SUPER: /* $obj->BAR::SUPER::foo  */
+        PerlIO_printf(Perl_debug_log, "(%s)",
+                SvPEEK(cMETHOPo_meth));
+        if (   o->op_type == OP_METHOD_REDIR
+            || o->op_type == OP_METHOD_REDIR_SUPER)
+        {
+            PerlIO_printf(Perl_debug_log, "(%s)",
+                SvPEEK(cMETHOPo_rclass));
+        }
         break;
 
     case OP_PADSV:
     case OP_PADAV:
     case OP_PADHV:
     case OP_ARGELEM:
+    case OP_PADSV_STORE:
+    case OP_AELEMFAST_LEX:
+      do_lex:
         S_deb_padvar(aTHX_ o->op_targ, 1, 1);
+        if (o->op_type == OP_AELEMFAST_LEX)
+            goto do_fast_ix;
         break;
 
     case OP_PADRANGE:
@@ -3542,6 +3567,10 @@ Perl_debop(pTHX_ const OP *o)
         break;
 
     default:
+        if (   (PL_opargs[o->op_type] & OA_TARGLEX)
+            && (o->op_private & OPpTARGET_MY))
+          goto do_lex;
+
         break;
     }
     PerlIO_printf(Perl_debug_log, "\n");