Following on from change 34918, scalarkids() and scalarseq() can also

be static in op.c, so make it so.

p4raw-id: //depot/perl@34919

1 files changed, 6 insertions, 2 deletions

diff --git a/op.c b/op.c
index 0fd564e9f1..dff969e269 100644
--- a/op.c
+++ b/op.c
@@ -818,7 +818,7 @@ S_linklist(pTHX_ OP *o)
 }
 
 OP *
-Perl_scalarkids(pTHX_ OP *o)
+S_scalarkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
         OP *kid;
@@ -848,6 +848,7 @@ S_scalarboolean(pTHX_ OP *o)
     return scalar(o);
 }
 
+/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_scalar(pTHX_ OP *o)
 {
@@ -921,6 +922,7 @@ Perl_scalar(pTHX_ OP *o)
     return o;
 }
 
+/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_scalarvoid(pTHX_ OP *o)
 {
@@ -1216,6 +1218,7 @@ Perl_listkids(pTHX_ OP *o)
     return o;
 }
 
+/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_list(pTHX_ OP *o)
 {
@@ -1294,7 +1297,7 @@ Perl_list(pTHX_ OP *o)
 }
 
 OP *
-Perl_scalarseq(pTHX_ OP *o)
+S_scalarseq(pTHX_ OP *o)
 {
     dVAR;
     if (o) {
@@ -2151,6 +2154,7 @@ Perl_my_attrs(pTHX_ OP *o, OP *attrs)
     return o;
 }
 
+/* This is used in perly.y  */
 OP *
 Perl_sawparens(pTHX_ OP *o)
 {