Tiny tweak.

p4raw-id: //depot/perl@14716

1 files changed, 5 insertions, 4 deletions

diff --git a/utf8.c b/utf8.c
index 41132a652d..52768adef7 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;