Newly-created stashes may need effective names added

1 files changed, 6 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 9f62066f74..9a72996f93 100644
--- a/gv.c
+++ b/gv.c
@@ -1075,7 +1075,13 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		    stash = GvHV(gv) = newHV();
 
 		if (!HvNAME_get(stash))
+		{
 		    hv_name_set(stash, nambeg, name_cursor - nambeg, 0);
+		    /* If the containing stash has multiple effective
+		       names, see that this one gets them, too. */
+		    if (HvAUX(GvSTASH(gv))->xhv_name_count)
+			mro_package_moved(stash, NULL, gv, 1);
+		}
 	    }
 
 	    if (*name_cursor == ':')