Calling Perl_hv_clear_placeholders while the hash iterator was active

would turn lazy delete on, causing the hash to become corrupted at the
next iterator change.

p4raw-id: //depot/perl@26551

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index 7452b1ecb0..69c951cfab 100644
--- a/hv.c
+++ b/hv.c
@@ -1617,7 +1617,7 @@ Perl_hv_clear_placeholders(pTHX_ HV *hv)
 		*oentry = HeNEXT(entry);
 		if (first && !*oentry)
 		    HvFILL(hv)--; /* This linked list is now empty.  */
-		if (HvEITER_get(hv))
+		if (entry == HvEITER_get(hv))
 		    HvLAZYDEL_on(hv);
 		else
 		    hv_free_ent(hv, entry);