summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorSimon Cozens <simon@netthink.co.uk>2000-12-08 13:33:31 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-01-05 15:57:37 +0000
commit0f4a810e6257ab8b7f289b497394cfdff380e306 (patch)
tree33f3c855adf6f054f809817680573bad427b06a0 /doop.c
parentbf1fed83f9a0d78ad078e497a12a4e988adb9031 (diff)
downloadperl-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.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/doop.c b/doop.c
index 212d496ac9..3b0ddc19e6 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 */