1 files changed, 2 insertions, 0 deletions
diff --git a/hv.c b/hv.c
index c798f1b01d..4300e363bb 100644
--- a/hv.c
+++ b/hv.c
@@ -1739,6 +1739,8 @@ Perl_hv_undef(pTHX_ HV *hv)
     hfreeentries(hv);
     Safefree(xhv->xhv_array /* HvARRAY(hv) */);
     if (HvNAME(hv)) {
+        if(PL_stashcache) 
+            hv_delete_ent(PL_stashcache, sv_2mortal(newSVpv(HvNAME(hv),0)), G_DISCARD, 0);
 	Safefree(HvNAME(hv));
 	HvNAME(hv) = 0;
     }