Missing static storage class for some new static functions

diff --git a/op.c b/op.c
index bd64a5d..f506bff 100644 (file)
--- 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 (file)
--- 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;