From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 27 Feb 2006 21:41:58 +0000 (+0000)
Subject: In Perl_sv_setsv_flags, swap the default in the type based switch to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=489f7bfe41fb498ba4c330a8e2d69a1ae40ff4df;p=p5sagit%2Fp5-mst-13.2.git

In Perl_sv_setsv_flags, swap the default in the type based switch to
the "Bizarre copy" failure case.

p4raw-id: //depot/perl@27350
---

diff --git a/sv.c b/sv.c
index af907c1..44cb50a 100644
--- a/sv.c
+++ b/sv.c
@@ -3461,10 +3461,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	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 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	}
 	/*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) {