Re: local($tied->{foo}) leaks

Message-ID: <20020503211210.B22026@fdgroup.com>

p4raw-id: //depot/perl@16383

1 files changed, 6 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 85a068017c..a7d55b0fbf 100644
--- a/scope.c
+++ b/scope.c
@@ -206,6 +206,12 @@ 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;
 }