From c0587b70da5573aef23d81081425e0c702f6694f Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 4 Dec 2001 00:59:27 +0000 Subject: [PATCH] Retract #13303, need rethink. p4raw-id: //depot/perl@13449 --- utf8.c | 3 --- 1 file changed, 3 deletions(-) diff --git a/utf8.c b/utf8.c index 9aded5a..6408b60 100644 --- a/utf8.c +++ b/utf8.c @@ -1228,8 +1228,6 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp,char *normal HE *he; uv = utf8_to_uvchr(p, 0); - if (uv <= 0xff) - uv = NATIVE_TO_UTF(uv); if ((hv = get_hv(special, FALSE)) && (keysv = sv_2mortal(Perl_newSVpvf(aTHX_ "%04"UVXf, uv))) && @@ -1240,7 +1238,6 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp,char *normal if (*lenp > 1 || UNI_IS_INVARIANT(c)) Copy(s, ustrp, *lenp, U8); else { - c = UTF_TO_NATIVE(c); /* something in the 0x80..0xFF range */ ustrp[0] = UTF8_EIGHT_BIT_HI(c); ustrp[1] = UTF8_EIGHT_BIT_LO(c); -- 2.7.4