ywarn() is actually only used inside toke.c, so it can be static.

p4raw-id: //depot/perl@34941

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index d8cd2e5fae..580ca9153a 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;