diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-12-29 00:08:35 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-12-29 00:08:35 +0000 |
| commit | 7e5d8ed22a9e0983529873e07602c1b147b8b5b8 (patch) | |
| tree | 4c7e2c13fcea923635ea9c6d9fbb45471e33ba95 /dump.c | |
| parent | 44a10c71f5d5adc63a15c1d8fb5e8b72de48836f (diff) | |
| download | perl-7e5d8ed22a9e0983529873e07602c1b147b8b5b8.tar.gz | |
further fix for #29543: fix parser leaks caused by croaking
p4raw-id: //depot/perl@29636
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -739,7 +739,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) #ifdef DUMPADDR Perl_dump_indent(aTHX_ level, file, "ADDR = 0x%"UVxf" => 0x%"UVxf"\n", (UV)o, (UV)o->op_next); #endif - if (o->op_flags || o->op_latefree || o->op_latefreed) { + if (o->op_flags || o->op_latefree || o->op_latefreed || o->op_attached) { SV * const tmpsv = newSVpvs(""); switch (o->op_flags & OPf_WANT) { case OPf_WANT_VOID: @@ -771,6 +771,8 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",LATEFREE"); if (o->op_latefreed) sv_catpv(tmpsv, ",LATEFREED"); + if (o->op_attached) + sv_catpv(tmpsv, ",ATTACHED"); Perl_dump_indent(aTHX_ level, file, "FLAGS = (%s)\n", SvCUR(tmpsv) ? SvPVX_const(tmpsv) + 1 : ""); SvREFCNT_dec(tmpsv); } |