Fix memory leak introduced by 2d0d1eccfcfe

If HvENAME was set by a destructor, it needs to be freed as well.
hv_name_set(whatever, NULL, ...) does that.

1 files changed, 2 insertions, 2 deletions

diff --git a/hv.c b/hv.c
index c3db1c622c..aa06c620f8 100644
--- a/hv.c
+++ b/hv.c
@@ -1855,8 +1855,8 @@ Perl_hv_undef(pTHX_ HV *hv)
     if (SvOOK(hv)) {
       struct xpvhv_aux * const aux = HvAUX(hv);
       struct mro_meta *meta;
-      if ((name = HvNAME(hv))) {
-        if (PL_stashcache)
+      if (aux->xhv_name) {
+        if (PL_stashcache && (name = HvNAME(hv)))
 	    (void)hv_delete(PL_stashcache, name, HvNAMELEN_get(hv), G_DISCARD);
 	hv_name_set(hv, NULL, 0, 0);
       }