X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=65b48839de0fd7f738e86a6d42deb4f341a1706d;hb=ccf874816b57b9b91848a81cf43371bf7b3f17c8;hp=5bd001020670989878c2b60d3de2d49594bddd59;hpb=2253333fe456e42259ae7571ab31af43f7c33890;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 5bd0010..65b4883 100644
--- a/proto.h
+++ b/proto.h
@@ -91,6 +91,7 @@ PERL_CALLCONV OP*	Perl_block_end(pTHX_ I32 floor, OP* seq);
 PERL_CALLCONV I32	Perl_block_gimme(pTHX);
 PERL_CALLCONV int	Perl_block_start(pTHX_ int full);
 PERL_CALLCONV void	Perl_boot_core_UNIVERSAL(pTHX);
+PERL_CALLCONV void	Perl_boot_core_PerlIO(pTHX);
 PERL_CALLCONV void	Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
 PERL_CALLCONV bool	Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp);
 PERL_CALLCONV U32	Perl_cast_ulong(pTHX_ NV f);
@@ -1304,8 +1305,11 @@ STATIC I32	S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
 STATIC SV*	S_isa_lookup(pTHX_ HV *stash, const char *name, int len, int level);
 #endif
 
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
 STATIC char*	S_stdize_locale(pTHX_ char* locs);
+#endif
+
+#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 STATIC SV*	S_mess_alloc(pTHX);
 #  if defined(LEAKTEST)
 STATIC void	S_xstat(pTHX_ int);