From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 19 Feb 2002 04:03:46 +0000 (+0000)
Subject: Oops.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9101d720b80106fbcfaf9d6e6c2a2d224de977f;p=p5sagit%2Fp5-mst-13.2.git

Oops.

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

diff --git a/utf8.c b/utf8.c
index 6414e2b..8f04b89 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1360,7 +1360,7 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
 	      /* It was "normal" (a single character mapping). */
 	      UV uv3 = UNI_TO_NATIVE(uv2);
 	      
-	      len = uvuni_to_utf8(ustrp, uv3) - ustrp;
+	      len = uvchr_to_utf8(ustrp, uv3) - ustrp;
 	 }
     }