remove duplicate PERL_HASH (as spotted by Enache Adrian in

<20031220124854.GA1265@ratsnest.hole> )

p4raw-id: //depot/perl@21932

1 files changed, 0 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index ee3891204d..158b0b652b 100644
--- a/hv.c
+++ b/hv.c
@@ -960,7 +960,6 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
         } else {
             PERL_HASH(hash, key, klen);
         }
-	PERL_HASH(hash, key, klen);
     }
 
     masked_flags = (k_flags & HVhek_MASK);