From 1f676739c0ff005ad6d6d4d3691c095800bc458c Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Nov 2008 22:04:01 +0000
Subject: [PATCH] Just s/Perl_/S_/ isn't good enough - you also need to add the
 C<static>

p4raw-id: //depot/perl@34934
---
 doio.c |  2 +-
 op.c   | 14 +++++++-------
 pad.c  |  2 +-
 util.c |  2 +-
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/doio.c b/doio.c
index 46ef41e..0917018 100644
--- a/doio.c
+++ b/doio.c
@@ -1943,7 +1943,7 @@ Perl_cando(pTHX_ Mode_t mode, bool effective, register const Stat_t *statbufp)
 }
 #endif /* ! VMS */
 
-bool
+static bool
 S_ingroup(pTHX_ Gid_t testgid, bool effective)
 {
 #ifdef MACOS_TRADITIONAL
diff --git a/op.c b/op.c
index f2ad701..89a31ed 100644
--- a/op.c
+++ b/op.c
@@ -785,7 +785,7 @@ Perl_op_refcnt_unlock(pTHX)
 
 #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
 
-OP *
+static OP *
 S_linklist(pTHX_ OP *o)
 {
     OP *first;
@@ -817,7 +817,7 @@ S_linklist(pTHX_ OP *o)
     return o->op_next;
 }
 
-OP *
+static OP *
 S_scalarkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
@@ -1207,7 +1207,7 @@ Perl_scalarvoid(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_listkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
@@ -1296,7 +1296,7 @@ Perl_list(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_scalarseq(pTHX_ OP *o)
 {
     dVAR;
@@ -2430,7 +2430,7 @@ Perl_jmaybe(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_fold_constants(pTHX_ register OP *o)
 {
     dVAR;
@@ -2571,7 +2571,7 @@ S_fold_constants(pTHX_ register OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_gen_constant_list(pTHX_ register OP *o)
 {
     dVAR;
@@ -2985,7 +2985,7 @@ Perl_newNULLLIST(pTHX)
     return newOP(OP_STUB, 0);
 }
 
-OP *
+static OP *
 S_force_list(pTHX_ OP *o)
 {
     if (!o || o->op_type != OP_LIST)
diff --git a/pad.c b/pad.c
index 715d361..568c8df 100644
--- a/pad.c
+++ b/pad.c
@@ -1150,7 +1150,7 @@ Mark all the current temporaries for reuse
  * to  a shared TARG.  Such an alias will change randomly and unpredictably.
  * We avoid doing this until we can think of a Better Way.
  * GSAR 97-10-29 */
-void
+static void
 S_pad_reset(pTHX)
 {
     dVAR;
diff --git a/util.c b/util.c
index 0287d34..06d7bb1 100644
--- a/util.c
+++ b/util.c
@@ -1362,7 +1362,7 @@ S_vdie_croak_common(pTHX_ const char* pat, va_list* args, STRLEN* msglen,
     return message;
 }
 
-OP *
+static OP *
 S_vdie(pTHX_ const char* pat, va_list *args)
 {
     dVAR;
-- 
2.7.4