projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
tweak for change#7173
[p5sagit/p5-mst-13.2.git]
/
sv.c
diff --git
a/sv.c
b/sv.c
index
e7bd003
..
a2e6fbd
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-913,6
+913,10
@@
Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
MAGIC* magic;
HV* stash;
+ if (mt != SVt_PV && SvREADONLY(sv) && SvFAKE(sv)) {
+ sv_force_normal(sv);
+ }
+
if (SvTYPE(sv) == mt)
return TRUE;