diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 15:48:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 15:48:40 +0000 |
| commit | acb36ea45c4b95945f9639aac4920c186353489b (patch) | |
| tree | d2a101788bdb284c33e56c67c340c3684f645ba2 /dump.c | |
| parent | adac82c7012022865800c6235e0a0d8b8710e279 (diff) | |
| download | perl-acb36ea45c4b95945f9639aac4920c186353489b.tar.gz | |
fix bug in change#3728 that might free COPs prematurely;
null(op) now does more thorough scrubbing of the op, which
fixes a few compile-time memory "leaks"
p4raw-link: @3728 on //depot/perl: 7399586d384137f7ae66bcc82a83b0df7dd429e5
p4raw-id: //depot/perl@3739
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -391,7 +391,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) else PerlIO_printf(file, "DONE\n"); if (o->op_targ) { - if (o->op_type == OP_NULL || o->op_type == OP_SETSTATE) + if (o->op_type == OP_NULL) Perl_dump_indent(aTHX_ level, file, " (was %s)\n", PL_op_name[o->op_targ]); else Perl_dump_indent(aTHX_ level, file, "TARG = %d\n", o->op_targ); |