listkids() can be static in op.c

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

diff --git a/op.c b/op.c
index dff969e..9c278df 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1208,7 +1208,7 @@ Perl_scalarvoid(pTHX_ OP *o)
 }
 
 OP *
-Perl_listkids(pTHX_ OP *o)
+S_listkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
         OP *kid;