From: Andy Lester <andy@petdance.com>
Date: Sat, 4 Jun 2005 23:09:04 +0000 (-0500)
Subject: Fix minor bummer in 24706
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c0c5f92cc8c83f85f490c4724df41382ded08d0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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