From fd7de8a8466b26f91b016c44f0d429fd3725d9d0 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 13 Jan 2007 18:21:19 +0000 Subject: [PATCH] In S_hfreeentries, orig_array can be const. p4raw-id: //depot/perl@29790 --- hv.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/hv.c b/hv.c index fb597e3..bc1e305 100644 --- a/hv.c +++ b/hv.c @@ -1697,11 +1697,11 @@ STATIC void S_hfreeentries(pTHX_ HV *hv) { /* This is the array that we're going to restore */ - HE **orig_array; + HE **const orig_array = HvARRAY(hv); HEK *name; int attempts = 100; - if (!HvARRAY(hv)) + if (!orig_array) return; if (SvOOK(hv)) { @@ -1715,7 +1715,6 @@ S_hfreeentries(pTHX_ HV *hv) name = NULL; } - orig_array = HvARRAY(hv); /* orig_array remains unchanged throughout the loop. If after freeing all the entries it turns out that one of the little blighters has triggered an action that has caused HvARRAY to be re-allocated, then we set -- 2.7.4