Renaming of stashes should not be visible from Perl

[perl5.git] / mro.c

diff --git a/mro.c b/mro.c
index dfb1489..a584686 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -786,9 +786,9 @@ Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash,
        if(PL_stashcache)
            (void)
             hv_delete(PL_stashcache, newname, newname_len, G_DISCARD);
-       hv_name_delete(oldstash, newname, newname_len);
+       hv_ename_delete(oldstash, newname, newname_len);
     }
-    if(stash) hv_name_add(stash, newname, newname_len);
+    if(stash) hv_ename_add(stash, newname, newname_len);
 }
 
 /*