From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Fri, 20 Nov 2009 11:05:23 +0000 (+0100)
Subject: Missing static storage class for some new static functions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=20381b504d5d07ea910daed28e4f149e5e1a26d7;p=p5sagit%2Fp5-mst-13.2.git

Missing static storage class for some new static functions
---

diff --git a/op.c b/op.c
index bd64a5d..f506bff 100644
--- a/op.c
+++ b/op.c
@@ -8362,7 +8362,7 @@ Perl_ck_each(pTHX_ OP *o)
 
 /* caller is supposed to assign the return to the 
    container of the rep_op var */
-OP *
+STATIC OP *
 S_opt_scalarhv(pTHX_ OP *rep_op) {
     UNOP *unop;
 
@@ -8391,7 +8391,7 @@ S_opt_scalarhv(pTHX_ OP *rep_op) {
  * beginning of the right-hand side. Returns the left-hand side of the
  * assignment if o acts in-place, or NULL otherwise. */
 
-OP *
+STATIC OP *
 S_is_inplace_av(pTHX_ OP *o, OP *oright) {
     OP *o2;
     OP *oleft = NULL;
diff --git a/pad.c b/pad.c
index bae83f4..fdf4402 100644
--- a/pad.c
+++ b/pad.c
@@ -560,7 +560,7 @@ C<is_our> indicates that the name to check is an 'our' declaration
 =cut
 */
 
-void
+STATIC void
 S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
 {
     dVAR;