X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=overload.c;h=4a9c94b1536e0f6f667926fcd8c2f7bb6849a604;hb=d2d1d4de13bedc11af82b2ca4fd580671530195c;hp=eaaef2154e49ab17f390450d900a9862e5d5d746;hpb=82af65938b18604bedb1e907fce033a213303aaf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/overload.c b/overload.c
index eaaef21..4a9c94b 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,
@@ -82,10 +82,12 @@ const U8 PL_AMG_namelens[NofAMmeth] = {
     2,
     3,
     3,
+    3,
+    3,
     7
 };
 
-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
@@ -157,5 +159,7 @@ char * const PL_AMG_names[NofAMmeth] = {
     "(.",
     "(.=",
     "(~~",
+    "(-X",
+    "(qr",
     "DESTROY"
 };