(Retracted by #8261). (Unsuccessful memory access tweaks.)

p4raw-id: //depot/perl@8261

1 files changed, 2 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index f5aa4a8d7f..867c0b2627 100644
--- a/hv.c
+++ b/hv.c
@@ -1225,7 +1225,8 @@ Perl_hv_undef(pTHX_ HV *hv)
 	return;
     xhv = (XPVHV*)SvANY(hv);
     hfreeentries(hv);
-    Safefree(xhv->xhv_array);
+    if (xhv->xhv_array)
+	Safefree(xhv->xhv_array);
     if (HvNAME(hv)) {
 	Safefree(HvNAME(hv));
 	HvNAME(hv) = 0;