X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8aef763e1786688c418bf91b2b95264d08196549..2e1c5ef038e0e6c85edfb5ac0d6cc98f79121ef9:/overload.c

diff --git a/overload.c b/overload.c
index 0a1ea3d..2f1f870 100644
--- a/overload.c
+++ b/overload.c
@@ -15,7 +15,7 @@
 #define AMG_id2name(id) (PL_AMG_names[id]+1)
 #define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
 
-const U8 PL_AMG_namelens[NofAMmeth] = {
+static const U8 PL_AMG_namelens[NofAMmeth] = {
     2,
     4,
     4,
@@ -85,7 +85,7 @@ const U8 PL_AMG_namelens[NofAMmeth] = {
     7
 };
 
-const char * const PL_AMG_names[NofAMmeth] = {
+static const char * const PL_AMG_names[NofAMmeth] = {
   /* Names kept in the symbol table.  fallback => "()", the rest has
      "(" prepended.  The only other place in perl which knows about
      this convention is AMG_id2name (used for debugging output and