Change 27350 by [EMAIL PROTECTED] on 2006/02/27 21:41:58
In Perl_sv_setsv_flags, swap the default in the type based switch to
the "Bizarre copy" failure case.
Affected files ...
... //depot/perl/sv.c#1177 edit
Differences ...
==== //depot/perl/sv.c#1177 (text) ====
Index: perl/sv.c
--- perl/sv.c#1176~27347~ 2006-02-27 09:24:37.000000000 -0800
+++ perl/sv.c 2006-02-27 13:41:58.000000000 -0800
@@ -3461,10 +3461,7 @@
if (dtype < SVt_PVNV)
sv_upgrade(dstr, SVt_PVNV);
break;
- case SVt_PVAV:
- case SVt_PVHV:
- case SVt_PVCV:
- case SVt_PVIO:
+ default:
{
const char * const type = sv_reftype(sstr,0);
if (PL_op)
@@ -3481,7 +3478,9 @@
}
/*FALLTHROUGH*/
- default:
+ case SVt_PVMG:
+ case SVt_PVLV:
+ case SVt_PVBM:
if (SvGMAGICAL(sstr) && (flags & SV_GMAGIC)) {
mg_get(sstr);
if ((int)SvTYPE(sstr) != stype) {
End of Patch.
