Adriano Ferreira prefers blead as upstream

[perl5.git] / overload.c

diff --git a/overload.c b/overload.c
index bb7f1cb..909a0ee 100644 (file)
--- a/overload.c
+++ b/overload.c
@@ -13,8 +13,9 @@
  */
 
 #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,
@@ -81,10 +82,11 @@ const U8 PL_AMG_namelens[NofAMmeth] = {
     2,
     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
@@ -156,5 +158,6 @@ char * const PL_AMG_names[NofAMmeth] = {
     "(.",
     "(.=",
     "(~~",
+    "(-X",
     "DESTROY"
 };