Some bincompat clawbacks.

p4raw-id: //depot/perl@13813

1 files changed, 18 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index b3acd0cbee..037b1df987 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1041,6 +1041,24 @@ Perl_is_uni_xdigit_lc(pTHX_ UV c)
     return is_uni_xdigit(c);	/* XXX no locale support yet */
 }
 
+U32
+Perl_to_uni_upper_lc(pTHX_ U32 c)
+{
+    return to_uni_upper(c);    /* XXX no locale support yet */
+}
+
+U32
+Perl_to_uni_title_lc(pTHX_ U32 c)
+{
+    return to_uni_title(c);    /* XXX no locale support yet */
+}
+
+U32
+Perl_to_uni_lower_lc(pTHX_ U32 c)
+{
+    return to_uni_lower(c);    /* XXX no locale support yet */
+}
+
 bool
 Perl_is_utf8_alnum(pTHX_ U8 *p)
 {