From d6179d6f73c0b13107fbcf65d20105cdfbc30dbc Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Mon, 26 Feb 2001 11:01:24 +0000 Subject: -Dt padsv($var) Message-Id: <200102261101.LAA12915@tiree.fdgroup.co.uk> p4raw-id: //depot/perl@8947 --- run.c | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'run.c') diff --git a/run.c b/run.c index 06dc3f230f..a4d3ea0e5c 100644 --- a/run.c +++ b/run.c @@ -64,6 +64,7 @@ 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) { @@ -81,6 +82,16 @@ Perl_debop(pTHX_ OP *o) 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"]", o->op_targ); + break; default: break; } -- cgit v1.2.1