From 23bb1b96cfae0dc23679ea6dd44cf0deadeb9fbf Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 24 Jun 2003 14:16:18 +0100
Subject: Re: [perl #22719] ISA cache problem with blessed stash objects
 Message-ID: <20030624121618.GC22675@fdgroup.com>

p4raw-id: //depot/perl@19849
---
 sv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index 7be1585c46..f001497595 100644
--- a/sv.c
+++ b/sv.c
@@ -3673,7 +3673,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	if (dtype < SVt_RV)
 	    sv_upgrade(dstr, SVt_RV);
 	else if (dtype == SVt_PVGV &&
-		 SvTYPE(SvRV(sstr)) == SVt_PVGV) {
+		 SvROK(sstr) && SvTYPE(SvRV(sstr)) == SVt_PVGV) {
 	    sstr = SvRV(sstr);
 	    if (sstr == dstr) {
 		if (GvIMPORTED(dstr) != GVf_IMPORTED
-- 
cgit v1.2.1