diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-12-08 19:09:23 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 15:00:50 +0000 |
| commit | 95f0a2f1ffc68ef908768ec5d39e4102afd28c1e (patch) | |
| tree | 6d6c7cf9004e0c6dae9629f09bab6144eeec3347 /dump.c | |
| parent | 5ec554fbe2d22a7213ac94890d84ed925ba9af4b (diff) | |
| download | perl-95f0a2f1ffc68ef908768ec5d39e4102afd28c1e.tar.gz | |
Re: attributes are broken
Message-Id: <200112090509.AAA02053@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@13543
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -503,6 +503,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) sv_catpv(tmpsv, ",NOPAREN"); if (o->op_private & OPpENTERSUB_INARGS) sv_catpv(tmpsv, ",INARGS"); + if (o->op_private & OPpENTERSUB_NOMOD) + sv_catpv(tmpsv, ",NOMOD"); } else { switch (o->op_private & OPpDEREF) { @@ -549,7 +551,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) else if (o->op_type == OP_FLOP) { if (o->op_private & OPpFLIP_LINENUM) sv_catpv(tmpsv, ",LINENUM"); - } else if (o->op_type == OP_RV2CV) { + } + else if (o->op_type == OP_RV2CV) { if (o->op_private & OPpLVAL_INTRO) sv_catpv(tmpsv, ",INTRO"); } @@ -1381,7 +1384,7 @@ Perl_runops_debug(pTHX) "WARNING: %"UVxf" changed from %"UVxf" to %"UVxf"\n", PTR2UV(PL_watchaddr), PTR2UV(PL_watchok), PTR2UV(*PL_watchaddr)); - if (DEBUG_p_TEST_) debstack(); + if (DEBUG_s_TEST_) debstack(); if (DEBUG_t_TEST_) debop(PL_op); if (DEBUG_P_TEST_) debprof(PL_op); } |