Change 24715: SvIsCOW_shared_hash is declared all the time, so use it.

[Nicholas Clark]

Change 24715 by [EMAIL PROTECTED] on 2005/06/06 10:01:49

        SvIsCOW_shared_hash is declared all the time, so use it.

Affected files ...

... //depot/perl/pp_hot.c#391 edit

Differences ...

==== //depot/perl/pp_hot.c#391 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#390~24689~    Fri Jun  3 01:31:26 2005
+++ perl/pp_hot.c       Mon Jun  6 03:01:49 2005
@@ -1665,11 +1665,7 @@
     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) {
End of Patch.