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
authorNicholas Clark <nick@ccl4.org>
Sun, 4 Feb 2007 20:32:13 +0000 (20:32 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 4 Feb 2007 20:32:13 +0000 (20:32 +0000)
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

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