projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Re: [perl #22719] ISA cache problem with blessed stash objects
[p5sagit/p5-mst-13.2.git]
/
sv.c
diff --git
a/sv.c
b/sv.c
index
7be1585
..
f001497
100644
(file)
--- 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