From c158a4fd68e274329d9ffd7198cb9eb1b21b0dfe Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 6 Jun 2005 14:50:21 +0000
Subject: Abstract all access to the shared hash value through SvSHARED_HASH()

p4raw-id: //depot/perl@24716
---
 hv.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hv.c')

diff --git a/hv.c b/hv.c
index 6201e66ae0..f1e80a9aec 100644
--- a/hv.c
+++ b/hv.c
@@ -650,7 +650,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 	flags |= HVhek_REHASH;
     } else if (!hash) {
         if (keysv && (SvIsCOW_shared_hash(keysv))) {
-            hash = SvUVX(keysv);
+            hash = SvSHARED_HASH(keysv);
         } else {
             PERL_HASH(hash, key, klen);
         }
@@ -1014,7 +1014,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 	PERL_HASH_INTERNAL(hash, key, klen);
     } else if (!hash) {
         if (keysv && (SvIsCOW_shared_hash(keysv))) {
-            hash = SvUVX(keysv);
+            hash = SvSHARED_HASH(keysv);
         } else {
             PERL_HASH(hash, key, klen);
         }
-- 
cgit v1.2.1