From: Simon Cozens <simon@netthink.co.uk>
Date: Fri, 8 Dec 2000 13:33:31 +0000 (+0000)
Subject: Re: ebcdic <-> ascii tables interjected in uv <-> utf8 considered harmful
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f4a810e6257ab8b7f289b497394cfdff380e306;p=p5sagit%2Fp5-mst-13.2.git

Re: ebcdic <-> ascii tables interjected in uv <-> utf8 considered harmful
Message-ID: <20001208133331.A11535@deep-dark-truthful-mirror.perlhacker.org>

A lost patch fragment.

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

diff --git a/doop.c b/doop.c
index 212d496..3b0ddc1 100644
--- a/doop.c
+++ b/doop.c
@@ -66,10 +66,7 @@ S_do_trans_simple(pTHX_ SV *sv)
 	c = utf8_to_uv(s, send - s, &ulen, 0);
         if (c < 0x100 && (ch = tbl[(short)c]) >= 0) {
             matches++;
-            if (UTF8_IS_ASCII(ch))
-                *d++ = ch;
-            else
-                d = uv_to_utf8(d,ch);
+	    d = uv_to_utf8(d, ch);
             s += ulen;
         }
 	else { /* No match -> copy */