This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mark a static function as static
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Jun 2005 06:51:48 +0000 (06:51 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Jun 2005 06:51:48 +0000 (06:51 +0000)
p4raw-id: //depot/perl@24745

utf8.c

diff --git a/utf8.c b/utf8.c
index f8128d8..625d3b6 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -191,7 +191,7 @@ the "Perl extended UTF-8" (the infamous 'v-strings') will encode into
 five bytes or more.
 
 =cut */
-STRLEN
+STATIC STRLEN
 S_is_utf8_char_slow(pTHX_ const U8 *s, const STRLEN len)
 {
     U8 u = *s;