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.h b/sharedsv.h
index 5a55be632f..f82804dba4 100644
--- a/sharedsv.h
+++ b/sharedsv.h
@@ -7,6 +7,7 @@ typedef struct {
     perl_cond           user_cond;      /* For user-level conditions */
     IV                  locks;          /* Number of locks held */
     PerlInterpreter    *owner;          /* Who owns the lock? */
+    U16                 index;          /* Update index */
 } shared_sv;
 
 #define SHAREDSvGET(a)      (a->sv)