diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-02-26 11:01:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-26 14:34:46 +0000 |
| commit | d6179d6f73c0b13107fbcf65d20105cdfbc30dbc (patch) | |
| tree | 447e960e8af6dcc4dcf3a3c6a14af1d2c1cbd7e1 /run.c | |
| parent | 453189b60dbb6e88d68de022c83a2a4ff03203fd (diff) | |
| download | perl-d6179d6f73c0b13107fbcf65d20105cdfbc30dbc.tar.gz | |
-Dt padsv($var)
Message-Id: <200102261101.LAA12915@tiree.fdgroup.co.uk>
p4raw-id: //depot/perl@8947
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -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; } |