From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Feb 2001 00:27:47 +0000 (+0000)
Subject: [ID 20010206.010] S_ functions not declared STATIC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d00ba3b0698d48a7824233ce83549199a976c3e;p=p5sagit%2Fp5-mst-13.2.git

[ID 20010206.010] S_ functions not declared STATIC
       Message-Id: <20010207002747.B63724@plum.flirble.org>

p4raw-id: //depot/perl@8714
---

diff --git a/sv.c b/sv.c
index 40fa5ca..9fc3386 100644
--- a/sv.c
+++ b/sv.c
@@ -6718,7 +6718,7 @@ Perl_sv_vsetpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
     sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
 }
 
-I32
+STATIC I32
 S_expect_number(pTHX_ char** pattern)
 {
     I32 var = 0;
diff --git a/toke.c b/toke.c
index 3c9c5f3..28c71ff 100644
--- a/toke.c
+++ b/toke.c
@@ -175,7 +175,7 @@ int yyactlevel = -1;
 /* grandfather return to old style */
 #define OLDLOP(f) return(yylval.ival=f,PL_expect = XTERM,PL_bufptr = s,(int)LSTOP)
 
-void
+STATIC void
 S_tokereport(pTHX_ char *thing, char* s, I32 rv)
 { 
     SV *report;