From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 20 Oct 2001 11:16:18 +0000 (+0000)
Subject: Avoid calling (now non-existant) Perl_sv_setsv(), by calling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=485caab953a6ba703128628417a156139b8e7a26;p=p5sagit%2Fp5-mst-13.2.git

Avoid calling (now non-existant) Perl_sv_setsv(), by calling
Perl_sv_setsv_flags directly.

p4raw-id: //depot/perlio@12525
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index cce263a..b2fa87e 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -102,13 +102,13 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) {
 
 	temp_store = Perl_get_sv(current_perl, "threads::paramtempstore",
 				 TRUE | GV_ADDMULTI);
-	Perl_sv_setsv(current_perl, temp_store,params);
+	Perl_sv_setsv_flags(current_perl, temp_store,params, SV_GMAGIC);
 	params = NULL;
 	temp_store = NULL;
 
 	temp_store = Perl_get_sv(current_perl, "threads::calltempstore",
 				 TRUE | GV_ADDMULTI);
-	Perl_sv_setsv(current_perl,temp_store, init_function);
+	Perl_sv_setsv_flags(current_perl,temp_store, init_function, SV_GMAGIC);
 	init_function = NULL;
 	temp_store = NULL;
 
@@ -129,18 +129,18 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) {
 	 * inteprreter */
 
 	temp_store = Perl_get_sv(thread->interp, "threads::paramtempstore",FALSE);
-	Perl_sv_setsv(thread->interp,temp_store, &PL_sv_undef);
+	Perl_sv_setsv_flags(thread->interp,temp_store, &PL_sv_undef, SV_GMAGIC);
 
 	temp_store = Perl_get_sv(thread->interp,"threads::calltempstore",FALSE);
-	Perl_sv_setsv(thread->interp,temp_store, &PL_sv_undef);
+	Perl_sv_setsv_flags(thread->interp,temp_store, &PL_sv_undef, SV_GMAGIC);
 
 	PERL_SET_CONTEXT(current_perl);
 
 	temp_store = Perl_get_sv(current_perl,"threads::paramtempstore",FALSE);
-	Perl_sv_setsv(current_perl, temp_store, &PL_sv_undef);
+	Perl_sv_setsv_flags(current_perl, temp_store, &PL_sv_undef, SV_GMAGIC);
 
 	temp_store = Perl_get_sv(current_perl,"threads::calltempstore",FALSE);
-	Perl_sv_setsv(current_perl, temp_store, &PL_sv_undef);
+	Perl_sv_setsv_flags(current_perl, temp_store, &PL_sv_undef, SV_GMAGIC);
 
 	/* let's init the thread */