X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e6b54db65c0cdda6ff40959415e828972b6a92b5..c2a006195998befcd298bcb6a93d2788f9f60071:/hv.h?ds=sidebyside

diff --git a/hv.h b/hv.h
index 2eea477..6ebd5d5 100644
--- a/hv.h
+++ b/hv.h
@@ -117,6 +117,7 @@ struct xpvhv_aux {
     U32         xhv_last_rand;  /* last random value for hash traversal,
                                    used to detect each() after insert for warnings */
 #endif
+    U32         xhv_fill_lazy;
 };
 
 /* hash structure: */
@@ -239,7 +240,7 @@ C<SV*>.
 #  define Nullhv Null(HV*)
 #endif
 #define HvARRAY(hv)	((hv)->sv_u.svu_hash)
-#define HvFILL(hv)	Perl_hv_fill(aTHX_ (const HV *)(hv))
+#define HvFILL(hv)	Perl_hv_fill(aTHX_ MUTABLE_HV(hv))
 #define HvMAX(hv)	((XPVHV*)  SvANY(hv))->xhv_max
 /* This quite intentionally does no flag checking first. That's your
    responsibility.  */