This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h can include embed.h in the same location on all operating systems.
[perl5.git] / hv.c
diff --git a/hv.c b/hv.c
index 1019b31..27ce6a5 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1897,8 +1897,7 @@ S_hv_auxinit(HV *hv) {
              + sizeof(struct xpvhv_aux), char);
     }
     HvARRAY(hv) = (HE**) array;
-    /* SvOOK_on(hv) attacks the IV flags.  */
-    SvFLAGS(hv) |= SVf_OOK;
+    SvOOK_on(hv);
     iter = HvAUX(hv);
 
     iter->xhv_riter = -1;      /* HvRITER(hv) = -1 */