deprecate_old() is not public, and only used within toke.c, so can be static.

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index 72bbc2f341..c0eed007ec 100644
--- a/toke.c
+++ b/toke.c
@@ -597,8 +597,8 @@ Perl_deprecate(pTHX_ const char *const s)
 	Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "Use of %s is deprecated", s);
 }
 
-void
-Perl_deprecate_old(pTHX_ const char *const s)
+static void
+S_deprecate_old(pTHX_ const char *const s)
 {
     /* This function should NOT be called for any new deprecated warnings */
     /* Use Perl_deprecate instead                                         */