From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 4 Feb 2007 20:32:13 +0000 (+0000)
Subject: Change 23753 wasn't quite a perfect refactoring, as it omitted calling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0bce9aa45a3d3e9c7a6fd9886d453d0ab22e69d;p=p5sagit%2Fp5-mst-13.2.git

Change 23753 wasn't quite a perfect refactoring, as it omitted calling
PERL_SET_THX(my_perl); when !PL_curinterp for non-ithreads.
However, this would not have made a difference for any configuration
buildable from the blead source alone.

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

diff --git a/perl.c b/perl.c
index 1dcb34a..d49278a 100644
--- a/perl.c
+++ b/perl.c
@@ -171,7 +171,12 @@ S_init_tls_and_interp(PerlInterpreter *my_perl)
 	MUTEX_INIT(&PL_my_ctx_mutex);
 #  endif
     }
-    else {
+#if defined(USE_ITHREADS)
+    else
+#else
+    /* This always happens for non-ithreads  */
+#endif
+    {
 	PERL_SET_THX(my_perl);
     }
 }