projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a604c75
)
SvIsCOW_shared_hash is declared all the time, so use it.
author
Nicholas Clark
<nick@ccl4.org>
Mon, 6 Jun 2005 10:01:49 +0000
(10:01 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Mon, 6 Jun 2005 10:01:49 +0000
(10:01 +0000)
p4raw-id: //depot/perl@24715
pp_hot.c
patch
|
blob
|
history
diff --git
a/pp_hot.c
b/pp_hot.c
index
83e0183
..
e41d4f2
100644
(file)
--- 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) {