diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-01 14:19:54 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-01 14:19:54 -0800 |
commit | 77ef775e8a76cb3c0bcc8da460cd3d48bf0d8203 (patch) | |
tree | b97e1884ade4140cf34acbaacea8c5f63ac72ff4 /gv.c | |
parent | 6eea2b427407da46a602a3ca17cbe055f57c24c0 (diff) | |
download | perl-77ef775e8a76cb3c0bcc8da460cd3d48bf0d8203.tar.gz |
Don’t double-free GVs in gv:S_maybe_add_coresub
Commit 8756617677 did not take into account that newSVOP steals a ref-
erence count.
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -517,7 +517,7 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv, if (ampable) { CvLVALUE_on(cv); newATTRSUB(oldsavestack_ix, - newSVOP(OP_CONST, 0, (SV *)gv), + newSVOP(OP_CONST, 0, SvREFCNT_inc_simple_NN(gv)), NULL,NULL, coresub_op( opnum |