From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Jun 2005 09:44:08 +0000 (+0000)
Subject: As there will be no old body to dispose of, we can return immediately.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85274cbc9a4ab4f30bf23de40721acf6d8493570;p=p5sagit%2Fp5-mst-13.2.git

As there will be no old body to dispose of, we can return immediately.

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

diff --git a/sv.c b/sv.c
index 47ae295..b1cf433 100644
--- a/sv.c
+++ b/sv.c
@@ -1405,17 +1405,17 @@ Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
 	assert(old_type == SVt_NULL);
 	SvANY(sv) = (XPVIV*)((char*)&(sv->sv_u.svu_iv) - STRUCT_OFFSET(XPVIV, xiv_iv));
 	SvIV_set(sv, 0);
-	break;
+	return;
     case SVt_NV:
 	assert(old_type == SVt_NULL);
 	SvANY(sv) = new_XNV();
 	SvNV_set(sv, 0);
-	break;
+	return;
     case SVt_RV:
 	assert(old_type == SVt_NULL);
 	SvANY(sv) = &sv->sv_u.svu_rv;
 	SvRV_set(sv, 0);
-	break;
+	return;
     case SVt_PVHV:
 	SvANY(sv) = new_XPVHV();
 	HvFILL(sv)	= 0;