This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Plan C rough edge smoothing - forgot to turn on the "has key flags"
[perl5.git] / hv.c
diff --git a/hv.c b/hv.c
index 58799d5..b786b32 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1532,6 +1532,7 @@ S_hsplit(pTHX_ HV *hv)
     xhv->xhv_fill = 0;
     HvSHAREKEYS_off(hv);
     HvREHASH_on(hv);
+    HvHASKFLAGS_on(hv);
 
     aep = (HE **) xhv->xhv_array;
 
@@ -1854,6 +1855,7 @@ Perl_hv_clear(pTHX_ HV *hv)
        mg_clear((SV*)hv);
 
     HvHASKFLAGS_off(hv);
+    HvREHASH_off(hv);
 }
 
 STATIC void