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

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

p4raw-id: //depot/perl@16383

diff --git a/scope.c b/scope.c
index 85a0680..a7d55b0 100644 (file)
--- 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;
 }