From 4b8c6c21cda3d9cbafb72eda661edc9052aa2cec Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 12 Oct 2009 11:24:15 +0100
Subject: deprecate_old() is not public, and only used within toke.c, so can be
 static.

---
 toke.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'toke.c')

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                                         */
-- 
cgit v1.2.1