Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

p4raw-id: //depot/perl@34934
  • Loading branch information...
commit 1f676739c0ff005ad6d6d4d3691c095800bc458c 1 parent 0d86688
Nicholas Clark authored
Showing with 10 additions and 10 deletions.
  1. +1 −1  doio.c
  2. +7 −7 op.c
  3. +1 −1  pad.c
  4. +1 −1  util.c
View
2  doio.c
@@ -1943,7 +1943,7 @@ Perl_cando(pTHX_ Mode_t mode, bool effective, register const Stat_t *statbufp)
}
#endif /* ! VMS */
-bool
+static bool
S_ingroup(pTHX_ Gid_t testgid, bool effective)
{
#ifdef MACOS_TRADITIONAL
View
14 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) {
@@ -1207,7 +1207,7 @@ Perl_scalarvoid(pTHX_ OP *o)
return o;
}
-OP *
+static OP *
S_listkids(pTHX_ OP *o)
{
if (o && o->op_flags & OPf_KIDS) {
@@ -1296,7 +1296,7 @@ Perl_list(pTHX_ OP *o)
return o;
}
-OP *
+static OP *
S_scalarseq(pTHX_ OP *o)
{
dVAR;
@@ -2430,7 +2430,7 @@ Perl_jmaybe(pTHX_ OP *o)
return o;
}
-OP *
+static OP *
S_fold_constants(pTHX_ register OP *o)
{
dVAR;
@@ -2571,7 +2571,7 @@ S_fold_constants(pTHX_ register OP *o)
return o;
}
-OP *
+static OP *
S_gen_constant_list(pTHX_ register OP *o)
{
dVAR;
@@ -2985,7 +2985,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)
View
2  pad.c
@@ -1150,7 +1150,7 @@ Mark all the current temporaries for reuse
* 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;
View
2  util.c
@@ -1362,7 +1362,7 @@ S_vdie_croak_common(pTHX_ const char* pat, va_list* args, STRLEN* msglen,
return message;
}
-OP *
+static OP *
S_vdie(pTHX_ const char* pat, va_list *args)
{
dVAR;
Please sign in to comment.
Something went wrong with that request. Please try again.