tidy index arrangements in new MY_CXT code

p4raw-id: //depot/perl@26554

3 files changed, 5 insertions, 5 deletions

diff --git a/intrpvar.h b/intrpvar.h
index 931ac461fb..aa0f0c3365 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -519,7 +519,7 @@ PERLVARI(Idumper_fd, int, -1)
 #endif
 
 #ifdef PERL_IMPLICIT_CONTEXT
-PERLVARI(Imy_cxt_size, int, -1)		/* size of PL_my_cxt_list */
+PERLVARI(Imy_cxt_size, int, 0)		/* size of PL_my_cxt_list */
 PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
 #endif
 
diff --git a/sv.c b/sv.c
index 5372215d4d..b707a73bfd 100644
--- a/sv.c
+++ b/sv.c
@@ -10480,7 +10480,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 != -1) {
+    if (PL_my_cxt_size) {
 	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 *);
     }
diff --git a/util.c b/util.c
index 4976c7517e..c4fddee299 100644
--- a/util.c
+++ b/util.c
@@ -5220,9 +5220,9 @@ Perl_my_cxt_init(pTHX_ int *index, size_t size)
     }
     
     /* make sure the array is big enough */
-    if (PL_my_cxt_size < *index + 1) {
-	if (PL_my_cxt_list) {
-	    while (PL_my_cxt_size < *index + 1)
+    if (PL_my_cxt_size <= *index) {
+	if (PL_my_cxt_size) {
+	    while (PL_my_cxt_size <= *index)
 		PL_my_cxt_size *= 2;
 	    Renew(PL_my_cxt_list, PL_my_cxt_size, void *);
 	}