summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorLarry Wall <lwall@netlabs.com>1995-03-15 12:25:31 +1300
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1995-03-15 12:25:31 +1300
commitb355b4e0798f66a89bbfedc23cbec69c1dff3d33 (patch)
treef7f7e77b0ac50b0f69816dc5bb93609a7c8cb97d /op.c
parent748a93069b3d16374a9859d1456065dd3ae11394 (diff)
downloadperl-b355b4e0798f66a89bbfedc23cbec69c1dff3d33.tar.gz
Okay, here's your official unofficial closure leak patch
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 3866792bee..b1f867feb0 100644
--- a/op.c
+++ b/op.c
@@ -2676,7 +2676,7 @@ CV* proto;
comppadlist = newAV();
AvREAL_off(comppadlist);
av_store(comppadlist, 0, SvREFCNT_inc((SV*)protopad_name));
- av_store(comppadlist, 1, SvREFCNT_inc((SV*)comppad));
+ av_store(comppadlist, 1, (SV*)comppad);
CvPADLIST(cv) = comppadlist;
av_extend(comppad, AvFILL(protopad));
curpad = AvARRAY(comppad);