byte mode chop() should clear UTF8 (from Gisle Aas)

p4raw-id: //depot/perl@5166

1 files changed, 1 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index a0fa729792..34cc0e3361 100644
--- a/doop.c
+++ b/doop.c
@@ -956,6 +956,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
 	sv_setpvn(astr, s, 1);
 	*s = '\0';
 	SvCUR_set(sv, len);
+	SvUTF8_off(sv);
 	SvNIOK_off(sv);
     }
     else