From: Stas Bekman <stas@stason.org>
Date: Wed, 3 Dec 2003 01:41:42 +0000 (-0800)
Subject: Re: XS modules having problems with CLONE and ithreads unless PERL_NO_GET_CONTEXT... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68853529b82cedc7fc5774cbdb57734af389f541;p=p5sagit%2Fp5-mst-13.2.git

Re: XS modules having problems with CLONE and ithreads unless PERL_NO_GET_CONTEXT is defined
Message-ID: <3FCDAFD6.9050106@stason.org>

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

diff --git a/sv.c b/sv.c
index 469faa9..5e61449 100644
--- a/sv.c
+++ b/sv.c
@@ -11000,9 +11000,10 @@ 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
+    /* XXX: things like -Dm will segfault here in perlio, but doing
+     *  PERL_SET_CONTEXT(proto_perl);
+     * breaks too many other things
+     */
     Perl_reentrant_init(aTHX);
 #endif