From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 23 Jan 2012 06:56:50 +0000 (-0800)
Subject: universal.c:XS_utf8_decode: rmv redundant code
X-Git-Tag: v5.15.8~401
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/18984c14b373cb9ef631091f5c5e151e9b0971f0?hp=6dd7c1f1e9477c302194505f6e1aaa57121f68bd

universal.c:XS_utf8_decode: rmv redundant code

SvPV_force_nolen already calls sv_force_normal for us.
---

diff --git a/universal.c b/universal.c
index f6da76d..463651b 100644
--- a/universal.c
+++ b/universal.c
@@ -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);