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 (file)
--- 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);
     }
 }