sv.c:sv_utf8_encode: simplify code

sv_force_normal already croaks for read-only variables

1 files changed, 1 insertions, 4 deletions

diff --git a/sv.c b/sv.c
index 3094274b0e..c1ece77d99 100644
--- a/sv.c
+++ b/sv.c
@@ -3521,11 +3521,8 @@ Perl_sv_utf8_encode(pTHX_ register SV *const sv)
 {
     PERL_ARGS_ASSERT_SV_UTF8_ENCODE;
 
-    if (SvIsCOW(sv)) {
-        sv_force_normal_flags(sv, 0);
-    }
     if (SvREADONLY(sv)) {
-	Perl_croak_no_modify(aTHX);
+	sv_force_normal_flags(sv, 0);
     }
     (void) sv_utf8_upgrade(sv);
     SvUTF8_off(sv);