From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 20 Feb 2000 17:59:41 +0000 (+0000)
Subject: byte mode chop() should clear UTF8 (from Gisle Aas)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c19a612638327a9654b39302223a9a15fba4160;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@5166
---

diff --git a/doop.c b/doop.c
index a0fa729..34cc0e3 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