This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As there will be no old body to dispose of, we can return immediately.
authorNicholas Clark <nick@ccl4.org>
Tue, 21 Jun 2005 09:44:08 +0000 (09:44 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 21 Jun 2005 09:44:08 +0000 (09:44 +0000)
p4raw-id: //depot/perl@24918

sv.c

diff --git a/sv.c b/sv.c
index 47ae295..b1cf433 100644 (file)
--- 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;