Fix minor bummer in 24706

Message-Id: <20050605040904.GA27783@petdance.com>

p4raw-id: //depot/perl@24707

diff --git a/utf8.c b/utf8.c
index 53983cb..5a80bfd 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -246,7 +246,7 @@ Perl_is_utf8_char(pTHX_ const U8 *s)
     if (len <= 4)
         return IS_UTF8_CHAR(s, len) ? len : 0;
 #endif /* #ifdef IS_UTF8_CHAR */
-    return S_is_utf8_char_slow(s, len);
+    return is_utf8_char_slow(s, len);
 }
 
 /*
@@ -285,7 +285,7 @@ Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len)
                 if (!IS_UTF8_CHAR(x, c))
                     return FALSE;
             } else {
-                if (!S_is_utf8_char_slow(x, c))
+                if (!is_utf8_char_slow(x, c))
                     return FALSE;
             }
 #else