From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 28 Jan 2006 12:26:47 +0000 (+0000)
Subject: Remove goto glob_assign;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c36d06f35d131cbc95ff19fae4a77cfabece4f82;p=p5sagit%2Fp5-mst-13.2.git

Remove goto glob_assign;

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

diff --git a/sv.c b/sv.c
index cbeb3d8..6502392 100644
--- a/sv.c
+++ b/sv.c
@@ -3058,7 +3058,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 		GvMULTI_on(dstr);
 		return;
 	    }
-	    goto glob_assign;
+	    return S_glob_assign(aTHX_ dstr, sstr, dtype);
 	}
 	break;
     case SVt_PVFM:
@@ -3097,7 +3097,6 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 
     case SVt_PVGV:
 	if (dtype <= SVt_PVGV) {
-  glob_assign:
 	    return S_glob_assign(aTHX_ dstr, sstr, dtype);
 	}
 	/* FALL THROUGH */
@@ -3108,7 +3107,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	    if ((int)SvTYPE(sstr) != stype) {
 		stype = SvTYPE(sstr);
 		if (stype == SVt_PVGV && dtype <= SVt_PVGV)
-		    goto glob_assign;
+		    return S_glob_assign(aTHX_ dstr, sstr, dtype);
 	    }
 	}
 	if (stype == SVt_PVLV)