/* compatibility with versions <= 5.003. */
void
Perl_gv_fullname(pTHX_ SV *sv, const GV *gv)
{
PERL_ARGS_ASSERT_GV_FULLNAME;
gv_fullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
}
I32
Perl_debop(pTHX_ OP *o)
{
#ifdef DEBUGGING
SV *sv;
SV **svp;
STRLEN n_a;
Perl_deb(aTHX_ "%s", PL_op_name[o->op_type]);
switch (o->op_type) {
case OP_CONST:
PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo_sv));
break;
case OP_GVSV:
case OP_GV:
if (cGVOPo_gv) {
sv = NEWSV(0,0);
gv_fullname3(sv, cGVOPo_gv, Nullch);
PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
SvREFCNT_dec(sv);
}
else
PerlIO_printf(Perl_debug_log, "(NULL)");
break;
case OP_PADSV:
case OP_PADAV:
case OP_PADHV:
/* print the lexical's name */
svp = av_fetch(PL_comppad_name, o->op_targ, FALSE);
if (svp)
PerlIO_printf(Perl_debug_log, "(%s)", SvPV(*svp,n_a));
else
PerlIO_printf(Perl_debug_log, "[%"UVuf"]", (UV)o->op_targ);
break;
default:
break;
}
PerlIO_printf(Perl_debug_log, "\n");
#endif /* DEBUGGING */
return 0;
}