Abstract all access to the shared hash value through SvSHARED_HASH()

p4raw-id: //depot/perl@24716

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 15d90a9e06..da03ca8501 100644
--- a/sv.h
+++ b/sv.h
@@ -1309,6 +1309,8 @@ Like C<sv_catsv> but doesn't process magic.
 				    (SVf_FAKE | SVf_READONLY))
 #define SvIsCOW_shared_hash(sv)	(SvIsCOW(sv) && SvLEN(sv) == 0)
 
+#define SvSHARED_HASH(sv) SvUVX(sv)
+
 /* flag values for sv_*_flags functions */
 #define SV_IMMEDIATE_UNREF	1
 #define SV_GMAGIC		2