summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-21 09:44:08 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-21 09:44:08 +0000
commit85274cbc9a4ab4f30bf23de40721acf6d8493570 (patch)
treeeee3c144db47cedc3ecb6d0ee3f9b5a854673ac3 /sv.c
parentd20128b88ca5cf7adb19e1f3382c9bfe14caba98 (diff)
downloadperl-85274cbc9a4ab4f30bf23de40721acf6d8493570.tar.gz
As there will be no old body to dispose of, we can return immediately.
p4raw-id: //depot/perl@24918
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/sv.c b/sv.c
index 47ae29550f..b1cf433ee7 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;