X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=580ca9153abd9f2ca0bd301d688611f466a54ca9;hb=953f6acfa20ec275ec39a552dfac8124bd93ebdf;hp=d8cd2e5fae2d59632d694700aaca000642f583d1;hpb=463559e728b65f7b60e46efa081b43ff1b4b6fa4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index d8cd2e5..580ca91 100644
--- a/toke.c
+++ b/toke.c
@@ -12575,8 +12575,8 @@ Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
 #ifdef __SC__
 #pragma segment Perl_yylex
 #endif
-int
-Perl_yywarn(pTHX_ const char *const s)
+static int
+S_yywarn(pTHX_ const char *const s)
 {
     dVAR;