Change 34934: Just s/Perl_/S_/ isn't good enough - you also need to add the C

[Nicholas Clark]

Change 34934 by [EMAIL PROTECTED] on 2008/11/26 22:04:01

        Just s/Perl_/S_/ isn't good enough - you also need to add the C<static>

Affected files ...

... //depot/perl/doio.c#377 edit
... //depot/perl/op.c#1032 edit
... //depot/perl/pad.c#131 edit
... //depot/perl/util.c#670 edit

Differences ...

==== //depot/perl/doio.c#377 (text) ====
Index: perl/doio.c
--- perl/doio.c#376~34925~      2008-11-26 11:58:49.000000000 -0800
+++ perl/doio.c 2008-11-26 14:04:01.000000000 -0800
@@ -1943,7 +1943,7 @@
 }
 #endif /* ! VMS */
 
-bool
+static bool
 S_ingroup(pTHX_ Gid_t testgid, bool effective)
 {
 #ifdef MACOS_TRADITIONAL

==== //depot/perl/op.c#1032 (text) ====
Index: perl/op.c
--- perl/op.c#1031~34933~       2008-11-26 13:56:46.000000000 -0800
+++ perl/op.c   2008-11-26 14:04:01.000000000 -0800
@@ -785,7 +785,7 @@
 
 #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 @@
     return o->op_next;
 }
 
-OP *
+static OP *
 S_scalarkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
@@ -1207,7 +1207,7 @@
     return o;
 }
 
-OP *
+static OP *
 S_listkids(pTHX_ OP *o)
 {
     if (o && o->op_flags & OPf_KIDS) {
@@ -1296,7 +1296,7 @@
     return o;
 }
 
-OP *
+static OP *
 S_scalarseq(pTHX_ OP *o)
 {
     dVAR;
@@ -2430,7 +2430,7 @@
     return o;
 }
 
-OP *
+static OP *
 S_fold_constants(pTHX_ register OP *o)
 {
     dVAR;
@@ -2571,7 +2571,7 @@
     return o;
 }
 
-OP *
+static OP *
 S_gen_constant_list(pTHX_ register OP *o)
 {
     dVAR;
@@ -2985,7 +2985,7 @@
     return newOP(OP_STUB, 0);
 }
 
-OP *
+static OP *
 S_force_list(pTHX_ OP *o)
 {
     if (!o || o->op_type != OP_LIST)

==== //depot/perl/pad.c#131 (text) ====
Index: perl/pad.c
--- perl/pad.c#130~34930~       2008-11-26 13:10:57.000000000 -0800
+++ perl/pad.c  2008-11-26 14:04:01.000000000 -0800
@@ -1150,7 +1150,7 @@
  * to  a shared TARG.  Such an alias will change randomly and unpredictably.
  * We avoid doing this until we can think of a Better Way.
  * GSAR 97-10-29 */
-void
+static void
 S_pad_reset(pTHX)
 {
     dVAR;

==== //depot/perl/util.c#670 (text) ====
Index: perl/util.c
--- perl/util.c#669~34932~      2008-11-26 13:33:54.000000000 -0800
+++ perl/util.c 2008-11-26 14:04:01.000000000 -0800
@@ -1362,7 +1362,7 @@
     return message;
 }
 
-OP *
+static OP *
 S_vdie(pTHX_ const char* pat, va_list *args)
 {
     dVAR;
End of Patch.