From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 20 Dec 2001 14:51:24 +0000 (+0000)
Subject: Fix up the APIs noone hopefully uses.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee099d148f5285f5dc11f2b0a5a2039997fc6f01;p=p5sagit%2Fp5-mst-13.2.git

Fix up the APIs noone hopefully uses.

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

diff --git a/utf8.c b/utf8.c
index 037b1df..81af397 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1044,19 +1044,31 @@ Perl_is_uni_xdigit_lc(pTHX_ UV c)
 U32
 Perl_to_uni_upper_lc(pTHX_ U32 c)
 {
-    return to_uni_upper(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_upper(c, tmpbuf, &len);
 }
 
 U32
 Perl_to_uni_title_lc(pTHX_ U32 c)
 {
-    return to_uni_title(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character XXX -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_title(c, tmpbuf, &len);
 }
 
 U32
 Perl_to_uni_lower_lc(pTHX_ U32 c)
 {
-    return to_uni_lower(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_lower(c, tmpbuf, &len);
 }
 
 bool