t/TEST: Don't bail if fails in t/base unless minitest

[perl5.git] / overload.c

diff --git a/overload.c b/overload.c
index 0d5b74b..cd28df4 100644 (file)
--- a/overload.c
+++ b/overload.c
@@ -84,8 +84,7 @@ static const U8 PL_AMG_namelens[NofAMmeth] = {
     3,
     3,
     3,
-    3,
-    7
+    3
 };
 
 static const char * const PL_AMG_names[NofAMmeth] = {
@@ -161,6 +160,7 @@ static const char * const PL_AMG_names[NofAMmeth] = {
     "(.=",             /* concat_ass */
     "(~~",             /* smart      */
     "(-X",             /* ftest      */
-    "(qr",             /* regexp     */
-    "DESTROY"
+    "(qr"
 };
+
+/* ex: set ro: */