From 485caab953a6ba703128628417a156139b8e7a26 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Sat, 20 Oct 2001 11:16:18 +0000 Subject: [PATCH] Avoid calling (now non-existant) Perl_sv_setsv(), by calling Perl_sv_setsv_flags directly. p4raw-id: //depot/perlio@12525 --- ext/threads/threads.xs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 */ -- 2.7.4