Fix assignment from magic SV that becomes a glob

1 files changed, 8 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index f8b1904802..33b72ffaf9 100644
--- a/sv.c
+++ b/sv.c
@@ -1925,10 +1925,16 @@ register SV *sstr;
 	/* FALL THROUGH */
 
     default:
+	if (SvGMAGICAL(sstr)) {
+	    mg_get(sstr);
+	    if (SvTYPE(sstr) != stype) {
+		stype = SvTYPE(sstr);
+		if (stype == SVt_PVGV && dtype <= SVt_PVGV)
+		    goto glob_assign;
+	    }
+	}
 	if (dtype < stype)
 	    sv_upgrade(dstr, stype);
-	if (SvGMAGICAL(sstr))
-	    mg_get(sstr);
     }
 
     sflags = SvFLAGS(sstr);