This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 23753 wasn't quite a perfect refactoring, as it omitted calling
[perl5.git] / perl.c
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);
     }
 }