From 016af4f17de049a3804a577bd072125010d0388d Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 30 Dec 2005 12:21:05 +0000
Subject: fix errors in new MY_CTX code

p4raw-id: //depot/perl@26535
---
 perl.c | 3 +++
 sv.c   | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 469593b744..b91373a04e 100644
--- a/perl.c
+++ b/perl.c
@@ -158,6 +158,9 @@ S_init_tls_and_interp(PerlInterpreter *my_perl)
 	PERL_SET_THX(my_perl);
 	OP_REFCNT_INIT;
 	MUTEX_INIT(&PL_dollarzero_mutex);
+#  endif
+#ifdef PERL_IMPLICIT_CONTEXT
+	MUTEX_INIT(&PL_my_ctx_mutex);
 #  endif
     }
     else {
diff --git a/sv.c b/sv.c
index 4c615e4411..f377c5902e 100644
--- a/sv.c
+++ b/sv.c
@@ -10483,7 +10483,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 	PL_exitlist	= (PerlExitListEntry*)NULL;
 
     PL_my_cxt_size = proto_perl->Imy_cxt_size;
-    if (PL_my_cxt_size) {
+    if (PL_my_cxt_size != -1) {
 	Newx(PL_my_cxt_list, PL_my_cxt_size, void *);
 	Copy(proto_perl->Imy_cxt_list, PL_my_cxt_list, PL_my_cxt_size, void *);
     }
-- 
cgit v1.2.1