This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Two missing 'static's, spotted by Merijn's smoker.
authorNicholas Clark <nick@ccl4.org>
Sat, 20 Sep 2008 11:38:46 +0000 (11:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 20 Sep 2008 11:38:46 +0000 (11:38 +0000)
p4raw-id: //depot/perl@34381

av.c
regcomp.c

diff --git a/av.c b/av.c
index 3d15d58..3c9d796 100644 (file)
--- a/av.c
+++ b/av.c
@@ -984,7 +984,7 @@ Perl_av_exists(pTHX_ AV *av, I32 key)
        return FALSE;
 }
 
-MAGIC *
+static MAGIC *
 S_get_aux_mg(pTHX_ AV *av) {
     dVAR;
     MAGIC *mg;
index f461fea..d2567d0 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8841,7 +8841,7 @@ S_regcurly(register const char *s)
  - regdump - dump a regexp onto Perl_debug_log in vaguely comprehensible form
  */
 #ifdef DEBUGGING
-void 
+static void 
 S_regdump_extflags(pTHX_ const char *lead, const U32 flags)
 {
     int bit;