else
PerlIO_printf(file, "DONE\n");
if (o->op_targ) {
- if (o->op_type == OP_NULL || o->op_type == OP_SETSTATE)
+ if (o->op_type == OP_NULL)
Perl_dump_indent(aTHX_ level, file, " (was %s)\n", PL_op_name[o->op_targ]);
else
Perl_dump_indent(aTHX_ level, file, "TARG = %d\n", o->op_targ);
Perl_dump_indent(aTHX_ level, file, "GV = NULL\n");
break;
case OP_CONST:
+ case OP_METHOD_NAMED:
Perl_dump_indent(aTHX_ level, file, "SV = %s\n", SvPEEK(cSVOPo->op_sv));
break;
case OP_SETSTATE: