diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-04-15 16:09:11 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-15 13:15:56 +0000 |
| commit | c53f1caa29d8829011cc4dd8948bd9947d957fba (patch) | |
| tree | 76e76909634178796c8ebcc30d805f25adce1b5e /op.c | |
| parent | d3004175efad37b09a53f117c749139ff8df0a47 (diff) | |
| download | perl-c53f1caa29d8829011cc4dd8948bd9947d957fba.tar.gz | |
invalid cop_free of nullified cop. How to fix?
From: "Reini Urban" <rurban@x-ray.at>
Message-ID: <6910a60804150509j3c100fc4t2ed303ae0124ba15@mail.gmail.com>
p4raw-id: //depot/perl@33687
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -495,8 +495,6 @@ Perl_op_free(pTHX_ OP *o) op_free(kid); } } - if (type == OP_NULL) - type = (OPCODE)o->op_targ; #ifdef PERL_DEBUG_READONLY_OPS Slab_to_rw(o); @@ -508,6 +506,9 @@ Perl_op_free(pTHX_ OP *o) cop_free((COP*)o); } + if (type == OP_NULL) + type = (OPCODE)o->op_targ; + op_clear(o); if (o->op_latefree) { o->op_latefreed = 1; |