From 85274cbc9a4ab4f30bf23de40721acf6d8493570 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 21 Jun 2005 09:44:08 +0000 Subject: [PATCH] As there will be no old body to dispose of, we can return immediately. p4raw-id: //depot/perl@24918 --- sv.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; -- 2.7.4