fix errors in new MY_CTX code

p4raw-id: //depot/perl@26535

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 469593b744..b91373a04e 100644
--- a/perl.c
+++ b/perl.c
@@ -159,6 +159,9 @@ S_init_tls_and_interp(PerlInterpreter *my_perl)
 	OP_REFCNT_INIT;
 	MUTEX_INIT(&PL_dollarzero_mutex);
 #  endif
+#ifdef PERL_IMPLICIT_CONTEXT
+	MUTEX_INIT(&PL_my_ctx_mutex);
+#  endif
     }
     else {
 	PERL_SET_THX(my_perl);