We only need to fetch the SV from the backend if the index

is not the same as mg_private.	In theory this could be
a problem if there are an exact multiple of U16 changes
of a shared variable between two access in a given thread,
we choose to avoid theory for now.

p4raw-id: //depot/perl@12616

1 files changed, 1 insertions, 0 deletions

diff --git a/sharedsv.c b/sharedsv.c
index 0deabb23ab..dde1153290 100644
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -68,6 +68,7 @@ Perl_sharedsv_new(pTHX)
     COND_INIT(&ssv->user_cond);
     ssv->owner = 0;
     ssv->locks = 0;
+    ssv->index = 0;
     return ssv;
 }