diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-06 10:01:49 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-06 10:01:49 +0000 |
| commit | ae29f7f0afee45e66c70e78182c1d7337e125b1f (patch) | |
| tree | 77cc0fbaa7b019ca1979d85b64b29fcd48a38c87 /pp_hot.c | |
| parent | a604c751b769c876d14b294d4befb68cd86e52be (diff) | |
| download | perl-ae29f7f0afee45e66c70e78182c1d7337e125b1f.tar.gz | |
SvIsCOW_shared_hash is declared all the time, so use it.
p4raw-id: //depot/perl@24715
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -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) { |