From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Dec 2001 00:59:27 +0000 (+0000)
Subject: Retract #13303, need rethink.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0587b70da5573aef23d81081425e0c702f6694f;p=p5sagit%2Fp5-mst-13.2.git

Retract #13303, need rethink.

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

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);