fix errors in new MY_CTX code

p4raw-id: //depot/perl@26535

1 files changed, 1 insertions, 1 deletions

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 *);
     }