diff options
author | Simon Cozens <simon@netthink.co.uk> | 2000-12-08 13:33:31 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 15:57:37 +0000 |
commit | 0f4a810e6257ab8b7f289b497394cfdff380e306 (patch) | |
tree | 33f3c855adf6f054f809817680573bad427b06a0 /doop.c | |
parent | bf1fed83f9a0d78ad078e497a12a4e988adb9031 (diff) | |
download | perl-0f4a810e6257ab8b7f289b497394cfdff380e306.tar.gz |
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
Diffstat (limited to 'doop.c')
-rw-r--r-- | doop.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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 */ |