From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 10 May 2008 15:58:32 +0000 (+0000)
Subject: Fix [perl #52740] crash when localizing a symtab entry
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56b24bb689e5cfc1ed67255f4f89bcb2fa9b56e0;p=p5sagit%2Fp5-mst-13.2.git

Fix [perl #52740] crash when localizing a symtab entry

p4raw-id: //depot/perl@33807
---

diff --git a/sv.c b/sv.c
index 8f94350..44307d4 100644
--- a/sv.c
+++ b/sv.c
@@ -3718,8 +3718,10 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
 		GvMULTI_on(dstr);
 		return;
 	    }
-	    glob_assign_glob(dstr, sstr, dtype);
-	    return;
+	    if (isGV_with_GP(sstr)) {
+		glob_assign_glob(dstr, sstr, dtype);
+		return;
+	    }
 	}
 
 	if (dtype >= SVt_PV) {