From 56b24bb689e5cfc1ed67255f4f89bcb2fa9b56e0 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Sat, 10 May 2008 15:58:32 +0000 Subject: [PATCH] Fix [perl #52740] crash when localizing a symtab entry p4raw-id: //depot/perl@33807 --- sv.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) { -- 1.8.3.1