Add a new Porting/podtidy to reformat pod using Pod::Tidy

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index f2ad701..d80aa95 100644 (file)
--- 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) {
@@ -848,7 +848,6 @@ S_scalarboolean(pTHX_ OP *o)
     return scalar(o);
 }
 
-/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_scalar(pTHX_ OP *o)
 {
@@ -922,7 +921,6 @@ Perl_scalar(pTHX_ OP *o)
     return o;
 }
 
-/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_scalarvoid(pTHX_ OP *o)
 {
@@ -1207,7 +1205,7 @@ Perl_scalarvoid(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_listkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
@@ -1218,7 +1216,6 @@ S_listkids(pTHX_ OP *o)
     return o;
 }
 
-/* This is used in S_doeval in pp_ctl.c  */
 OP *
 Perl_list(pTHX_ OP *o)
 {
@@ -1296,7 +1293,7 @@ Perl_list(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_scalarseq(pTHX_ OP *o)
 {
     dVAR;
@@ -2154,7 +2151,6 @@ Perl_my_attrs(pTHX_ OP *o, OP *attrs)
     return o;
 }
 
-/* This is used in perly.y  */
 OP *
 Perl_sawparens(pTHX_ OP *o)
 {
@@ -2430,7 +2426,7 @@ Perl_jmaybe(pTHX_ OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_fold_constants(pTHX_ register OP *o)
 {
     dVAR;
@@ -2571,7 +2567,7 @@ S_fold_constants(pTHX_ register OP *o)
     return o;
 }
 
-OP *
+static OP *
 S_gen_constant_list(pTHX_ register OP *o)
 {
     dVAR;
@@ -2985,7 +2981,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)