From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 6 Jun 2005 10:01:49 +0000 (+0000)
Subject: SvIsCOW_shared_hash is declared all the time, so use it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae29f7f0afee45e66c70e78182c1d7337e125b1f;p=p5sagit%2Fp5-mst-13.2.git

SvIsCOW_shared_hash is declared all the time, so use it.

p4raw-id: //depot/perl@24715
---

diff --git a/pp_hot.c b/pp_hot.c
index 83e0183..e41d4f2 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1665,11 +1665,7 @@ PP(pp_helem)
     const U32 lval = PL_op->op_flags & OPf_MOD || LVRET;
     const U32 defer = PL_op->op_private & OPpLVAL_DEFER;
     SV *sv;
-#ifdef PERL_COPY_ON_WRITE
     const U32 hash = (SvIsCOW_shared_hash(keysv)) ? SvUVX(keysv) : 0;
-#else
-    const U32 hash = (SvFAKE(keysv) && SvREADONLY(keysv)) ? SvUVX(keysv) : 0;
-#endif
     I32 preeminent = 0;
 
     if (SvTYPE(hv) == SVt_PVHV) {