Remove a duplicated conditional test by putting everything for the

not readonly case inside one block.

p4raw-id: //depot/perl@27537

1 files changed, 7 insertions, 6 deletions

diff --git a/sv.c b/sv.c
index 5c4722d684..d981d88fab 100644
--- a/sv.c
+++ b/sv.c
@@ -5297,13 +5297,14 @@ Perl_sv_len_utf8(pTHX_ register SV *sv)
 	}
 	else {
 	    ulen = Perl_utf8_length(aTHX_ s, s + len);
-	    if (!mg && !SvREADONLY(sv)) {
-		sv_magic(sv, 0, PERL_MAGIC_utf8, 0, 0);
-		mg = mg_find(sv, PERL_MAGIC_utf8);
-		assert(mg);
-	    }
-	    if (mg)
+	    if (!SvREADONLY(sv)) {
+		if (!mg) {
+		    sv_magic(sv, 0, PERL_MAGIC_utf8, 0, 0);
+		    mg = mg_find(sv, PERL_MAGIC_utf8);
+		    assert(mg);
+		}
 		mg->mg_len = ulen;
+	    }
 	}
 	return ulen;
     }