This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
universal.c:XS_utf8_decode: rmv redundant code
[perl5.git] / universal.c
index f6da76d..463651b 100644 (file)
@@ -812,7 +812,6 @@ XS(XS_utf8_decode)
     else {
        SV * const sv = ST(0);
        bool RETVAL;
-       if (SvREADONLY(sv)) sv_force_normal(sv);
        SvPV_force_nolen(sv);
        RETVAL = sv_utf8_decode(sv);
        ST(0) = boolSV(RETVAL);