[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 (file)
--- 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 (file)
--- 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;