/* 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; }