In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/20381b504d5d07ea910daed28e4f149e5e1a26d7?hp=e3d6681484d7bae3090b7f20788ae2ea34c17670>
- Log -----------------------------------------------------------------
commit 20381b504d5d07ea910daed28e4f149e5e1a26d7
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Nov 20 12:05:23 2009 +0100
Missing static storage class for some new static functions
-----------------------------------------------------------------------
Summary of changes:
op.c | 4 ++--
pad.c | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/op.c b/op.c
index bd64a5d..f506bff 100644
--- a/op.c
+++ b/op.c
@@ -8362,7 +8362,7 @@ Perl_ck_each(pTHX_ OP *o)
/* caller is supposed to assign the return to the
container of the rep_op var */
-OP *
+STATIC OP *
S_opt_scalarhv(pTHX_ OP *rep_op) {
UNOP *unop;
@@ -8391,7 +8391,7 @@ S_opt_scalarhv(pTHX_ OP *rep_op) {
* beginning of the right-hand side. Returns the left-hand side of the
* assignment if o acts in-place, or NULL otherwise. */
-OP *
+STATIC OP *
S_is_inplace_av(pTHX_ OP *o, OP *oright) {
OP *o2;
OP *oleft = NULL;
diff --git a/pad.c b/pad.c
index bae83f4..fdf4402 100644
--- a/pad.c
+++ b/pad.c
@@ -560,7 +560,7 @@ C<is_our> indicates that the name to check is an 'our'
declaration
=cut
*/
-void
+STATIC void
S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
{
dVAR;
--
Perl5 Master Repository
