Upgrade to podlators-2.1.0

[p5sagit/p5-mst-13.2.git] / hv.c

diff --git a/hv.c b/hv.c
index 6b54681..acc58e2 100644 (file)
--- 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);
@@ -2925,6 +2925,8 @@ Perl_fetch_cop_label(pTHX_ struct refcounted_he *const chain, STRLEN *len,
 struct refcounted_he *
 Perl_store_cop_label(pTHX_ struct refcounted_he *const chain, const char *label)
 {
+    PERL_ARGS_ASSERT_STORE_COP_LABEL;
+
     return refcounted_he_new_common(chain, ":", 1, HVrhek_PV, HVrhek_PV,
                                    label, strlen(label));
 }