summaryrefslogtreecommitdiff
path: root/pp.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 /pp.c
parent748a93069b3d16374a9859d1456065dd3ae11394 (diff)
downloadperl-b355b4e0798f66a89bbfedc23cbec69c1dff3d33.tar.gz
Okay, here's your official unofficial closure leak patch
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 51287e18e2..16e47b600d 100644
--- a/pp.c
+++ b/pp.c
@@ -270,7 +270,7 @@ PP(pp_anoncode)
EXTEND(SP,1);
if (SvFLAGS(cv) & SVpcv_CLONE) {
- cv = cv_clone(cv);
+ cv = (CV*)sv_2mortal((SV*)cv_clone(cv));
}
PUSHs((SV*)cv);