From: Stas Bekman <stas@stason.org>
Date: Wed, 29 Oct 2003 15:15:15 +0000 (-0800)
Subject: [5.8.x segfault + patch] chicken&egg segfault in -Dm -Mthreads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=faa85dbe2ed17f5b443a4962aa50712bc3d5b2ba;p=p5sagit%2Fp5-mst-13.2.git

[5.8.x segfault + patch] chicken&egg segfault in -Dm -Mthreads
Message-ID: <3FA04A03.5010603@stason.org>
(enclosed in a #ifdef DEBUGGING)

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

diff --git a/sv.c b/sv.c
index a57ed71..bef60fa 100644
--- a/sv.c
+++ b/sv.c
@@ -10921,6 +10921,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_debug		= proto_perl->Idebug;
 
 #ifdef USE_REENTRANT_API
+#ifdef DEBUGGING
+    PERL_SET_CONTEXT(proto_perl);
+#endif
     Perl_reentrant_init(aTHX);
 #endif