summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-01-01 14:19:54 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-01-01 14:19:54 -0800
commit77ef775e8a76cb3c0bcc8da460cd3d48bf0d8203 (patch)
treeb97e1884ade4140cf34acbaacea8c5f63ac72ff4
parent6eea2b427407da46a602a3ca17cbe055f57c24c0 (diff)
downloadperl-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.
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 3005895315..df3735a105 100644
--- a/gv.c
+++ b/gv.c
@@ -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