From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Feb 2002 04:24:45 +0000 (+0000)
Subject: Tiny tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=491f958c9b9ea636ca814e3c48177e833a01e72f;p=p5sagit%2Fp5-mst-13.2.git

Tiny tweak.

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

diff --git a/utf8.c b/utf8.c
index 41132a6..52768ad 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1299,11 +1299,12 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
     uv2 = swash_fetch(*swashp, tmpbuf, TRUE);
     if (uv2) {
 	 /* It was "normal" (single character mapping). */
-	 if (lenp)
-	      *lenp = UNISKIP(uv2);
-	 uvuni_to_utf8(ustrp, uv2);
+         uv2 = UNI_TO_NATIVE(uv2);
+         len = uvchr_to_utf8(ustrp, uv2) - ustrp;
+         if (lenp)
+              *lenp = len;
 
-	 return uv2;
+         return uv2;
     }
     else {
 	 HV *hv;