Call get-magic once for *glob=$tied

This is a regression in 5.10.0.

1 files changed, 5 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index f555e44c36..bb9dbd3723 100644
--- a/sv.c
+++ b/sv.c
@@ -4161,7 +4161,11 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
 			   "Undefined value assigned to typeglob");
 	}
 	else {
-	    GV *gv = gv_fetchsv(sstr, GV_ADD, SVt_PVGV);
+	    STRLEN len;
+	    const char *nambeg = SvPV_nomg_const(sstr, len);
+	    GV *gv = gv_fetchpvn_flags(
+		nambeg, len, SvUTF8(sstr)|GV_ADD, SVt_PVGV
+	    );
 	    if (dstr != (const SV *)gv) {
 		const char * const name = GvNAME((const GV *)dstr);
 		const STRLEN len = GvNAMELEN(dstr);