Plan C rough edge smoothing - forgot to turn on the "has key flags"

flag on the hash when rehashing. Can turn off the "rehasing" flag if the hash is cleared p4raw-id: //depot/perl@21474
rurban · Oct 17, 2003 · bb443f9 · bb443f9
1 parent 11fb189
commit bb443f9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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