From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Jul 2004 13:30:27 +0000 (+0000)
Subject: hv_store was not passing hash onwards (spotted by Dave)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52d01cc22f218c2d828b1db06a67c612a02ebd47;p=p5sagit%2Fp5-mst-13.2.git

hv_store was not passing hash onwards (spotted by Dave)

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

diff --git a/hv.c b/hv.c
index 54f2e54..502856e 100644
--- a/hv.c
+++ b/hv.c
@@ -218,7 +218,7 @@ Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash)
 	flags = 0;
     }
     hek = hv_fetch_common (hv, NULL, key, klen, flags,
-			   (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), val, 0);
+			   (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), val, hash);
     return hek ? &HeVAL(hek) : NULL;
 }