summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2002-05-04 00:51:10 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2002-05-04 13:22:41 +0000
commitb412ba13de1aba05d1c6879f79a05afb87caff24 (patch)
tree79f3486fb74ffe906983042b7f22567caafd2bd9 /scope.c
parent70a63e5f3c7f94ba3250f14cfab6845bafe96a42 (diff)
downloadperl-b412ba13de1aba05d1c6879f79a05afb87caff24.tar.gz
Re: [PATCH scope.c] Re: local($tied->{foo}) leaks
Message-ID: <20020503235110.E22026@fdgroup.com> p4raw-id: //depot/perl@16386
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/scope.c b/scope.c
index a7d55b0fbf..85a068017c 100644
--- a/scope.c
+++ b/scope.c
@@ -206,12 +206,6 @@ S_save_scalar_at(pTHX_ SV **sptr)
PL_localizing = 1;
SvSETMAGIC(sv);
PL_localizing = 0;
- /* If we're localizing a tied array/hash element, this new sv
- * won't actually be stored in the array/hash - so it won't get
- * reaped when the localize ends. Ensure it gets reaped by
- * mortifying it instead. DAPM */
- if (SvTIED_mg(sv, PERL_MAGIC_tiedelem))
- sv_2mortal(sv);
}
return sv;
}