In perl_clone_using(), turn off AvREAL() on param->stashes.
[p5sagit/p5-mst-13.2.git] / hv.h
diff --git a/hv.h b/hv.h
index db79b46..468c072 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -85,9 +85,8 @@ struct xpvhv_aux {
 struct xpvhv {
     HV*                xmg_stash;      /* class package */
     union _xmgu        xmg_u;
-    STRLEN      xhv_fill;       /* how full xhv_array currently is */
+    STRLEN      xhv_keys;       /* total keys, including placeholders */
     STRLEN      xhv_max;        /* subscript of last element of xhv_array */
-    STRLEN     xhv_keys;       /* total keys, including placeholders */
 };
 
 /* hash a key */
@@ -235,7 +234,7 @@ C<SV*>.
 #  define Nullhv Null(HV*)
 #endif
 #define HvARRAY(hv)    ((hv)->sv_u.svu_hash)
-#define HvFILL(hv)     ((XPVHV*)  SvANY(hv))->xhv_fill
+#define HvFILL(hv)     Perl_hv_fill(aTHX_ (const HV *)(hv))
 #define HvMAX(hv)      ((XPVHV*)  SvANY(hv))->xhv_max
 /* This quite intentionally does no flag checking first. That's your
    responsibility.  */