X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=4da7453c3c2015ad69ee019315429292e13d9e95;hb=1e73acc8af3eecb1b36ee831483e1e9a7b3d1662;hp=65cda05dccb638f89489268070f076467a40ddf9;hpb=427eaa011f61c437e03305d68b0dfe40fd3cb5c7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index 65cda05..4da7453 100644
--- a/mg.c
+++ b/mg.c
@@ -379,7 +379,7 @@ Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen)
 	}
 	else {
 	    const char type = mg->mg_type;
-	    if (isUPPER(type)) {
+	    if (isUPPER(type) && type != PERL_MAGIC_uvar) {
 		sv_magic(nsv,
 		     (type == PERL_MAGIC_tied)
 			? SvTIED_obj(sv, mg)