Integrate with Sarathy.

p4raw-id: //depot/cfgperl@5704

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index cfb4dc8b84..2ee7060237 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -1288,6 +1288,13 @@ Perl_to_uni_lower_lc(pTHXo_ U32 c)
     return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
 }
 
+#undef  Perl_is_utf8_char
+int
+Perl_is_utf8_char(pTHXo_ U8 *p)
+{
+    return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
+}
+
 #undef  Perl_is_utf8_alnum
 bool
 Perl_is_utf8_alnum(pTHXo_ U8 *p)