diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-03-28 15:10:48 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-03-28 15:10:48 +0000 |
| commit | 38c076c778be4d77b58837d5c13b55bd2f5fb50e (patch) | |
| tree | 29f3f3482ca36dd9caa5096f668bc0dd4c7c18f9 /dump.c | |
| parent | 4ad16c232af72afff4d7d0d37f532c709df5d9f0 (diff) | |
| download | perl-38c076c778be4d77b58837d5c13b55bd2f5fb50e.tar.gz | |
update -Dx to cope with lexical version of OP_AELEMFAST
p4raw-id: //depot/perl@22607
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -757,17 +757,19 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) #ifdef USE_ITHREADS Perl_dump_indent(aTHX_ level, file, "PADIX = %" IVdf "\n", (IV)cPADOPo->op_padix); #else - if (cSVOPo->op_sv) { - SV *tmpsv = NEWSV(0,0); - STRLEN n_a; - ENTER; - SAVEFREESV(tmpsv); - gv_fullname3(tmpsv, (GV*)cSVOPo->op_sv, Nullch); - Perl_dump_indent(aTHX_ level, file, "GV = %s\n", SvPV(tmpsv, n_a)); - LEAVE; + if ( ! PL_op->op_flags & OPf_SPECIAL) { /* not lexical */ + if (cSVOPo->op_sv) { + SV *tmpsv = NEWSV(0,0); + STRLEN n_a; + ENTER; + SAVEFREESV(tmpsv); + gv_fullname3(tmpsv, (GV*)cSVOPo->op_sv, Nullch); + Perl_dump_indent(aTHX_ level, file, "GV = %s\n", SvPV(tmpsv, n_a)); + LEAVE; + } + else + Perl_dump_indent(aTHX_ level, file, "GV = NULL\n"); } - else - Perl_dump_indent(aTHX_ level, file, "GV = NULL\n"); #endif break; case OP_CONST: |