From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 27 Oct 2003 22:01:12 +0000 (+0000)
Subject: Fix more shared threads leaks: add SAVETMPS to the second branch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6cd54f9c495b4940cfbcbc0445fc8191a10b25bd;p=p5sagit%2Fp5-mst-13.2.git

Fix more shared threads leaks: add SAVETMPS to the second branch
of sharedsv_scalar_store().

p4raw-id: //depot/perl@21564
---

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 4bf4c78..853b2b7 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -463,12 +463,16 @@ sharedsv_scalar_store(pTHX_ SV *sv, shared_sv *shared)
     else {
         SvTEMP_off(sv);
 	SHARED_CONTEXT;
+	ENTER;
+	SAVETMPS;
 	sv_setsv_nomg(SHAREDSvPTR(shared), sv);
 	if(SvOBJECT(sv)) {
 	  SV* fake_stash = newSVpv(HvNAME(SvSTASH(sv)),0);
 	  SvOBJECT_on(SHAREDSvPTR(shared));
 	  SvSTASH(SHAREDSvPTR(shared)) = (HV*)fake_stash;
 	}
+	FREETMPS;
+	LEAVE;
 	CALLER_CONTEXT;
     }
     if (!allowed) {