From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 7 Apr 2008 17:50:31 +0000 (+0000)
Subject: So why didn't the build break for me? Fix problems spotted by Jerry
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=223bd1548503f5005ef05c6ae2e9403eb7eb9326;p=p5sagit%2Fp5-mst-13.2.git

So why didn't the build break for me? Fix problems spotted by Jerry
Hedden.

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

diff --git a/hv.c b/hv.c
index 6b54681..6d33966 100644
--- a/hv.c
+++ b/hv.c
@@ -2825,9 +2825,9 @@ S_refcounted_he_new_common(pTHX_ struct refcounted_he *const parent,
 	Copy((char *)value, he->refcounted_he_data + 1, value_len + 1, char);
 	he->refcounted_he_val.refcounted_he_u_len = value_len;
     } else if (value_type == HVrhek_IV) {
-	he->refcounted_he_val.refcounted_he_u_iv = SvIVX(value);
+	he->refcounted_he_val.refcounted_he_u_iv = SvIVX((SV *)value);
     } else if (value_type == HVrhek_UV) {
-	he->refcounted_he_val.refcounted_he_u_uv = SvUVX(value);
+	he->refcounted_he_val.refcounted_he_u_uv = SvUVX((SV *)value);
     }
 
     PERL_HASH(hash, key_p, key_len);