From 654c723fd377eb0d22b2bff31f08cbc7db15dcaa Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 22 Jan 2012 22:58:58 -0800 Subject: [PATCH] sv.c:sv_utf8_encode: simplify code sv_force_normal already croaks for read-only variables --- sv.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/sv.c b/sv.c index 3094274..c1ece77 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); -- 1.8.3.1