X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=1b9c6b6a40dc74cefc99f10efec9deb7d2a3ddcc;hb=8a064bd6d0d7a44f3e80bed959e1dc566b57850d;hp=04fc3ecbcc57bfec97f3494627469a9f46aac0cd;hpb=c1b02ed82fa9b8892ce2668d35b6825f1fd3fb59;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 04fc3ec..1b9c6b6 100644
--- a/proto.h
+++ b/proto.h
@@ -2492,6 +2492,12 @@ STATIC SV*	S_mess_alloc(pTHX);
 STATIC NV	S_mulexp10(NV value, I32 exponent);
 #endif
 
+#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
+STATIC STRLEN	S_is_utf8_char_slow(pTHX_ const U8 *s, const STRLEN len)
+			__attribute__nonnull__(pTHX_1);
+
+#endif
+
 START_EXTERN_C
 
 PERL_CALLCONV void	Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags)