This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make *.inc behave like *.[hc]
[perl5.git] / overload.c
index 4ccba19..3cf64c7 100644 (file)
@@ -8,8 +8,9 @@
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
- *  !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- *  This file is built by regen/overload.pl
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/overload.pl.
+ * Any changes made here will be lost!
  */
 
 #define AMG_id2name(id) (PL_AMG_names[id]+1)
@@ -64,13 +65,20 @@ static const U8 PL_AMG_namelens[NofAMmeth] = {
     4,
     2,
     3,
+    3,
+    4,
     2,
     3,
+    3,
+    4,
     2,
     3,
+    3,
+    4,
     4,
     4,
     2,
+    3,
     6,
     4,
     4,
@@ -83,8 +91,7 @@ static const U8 PL_AMG_namelens[NofAMmeth] = {
     3,
     3,
     3,
-    3,
-    7
+    3
 };
 
 static const char * const PL_AMG_names[NofAMmeth] = {
@@ -141,13 +148,20 @@ static const char * const PL_AMG_names[NofAMmeth] = {
     "(>>=",            /* rshift_ass */
     "(&",              /* band       */
     "(&=",             /* band_ass   */
+    "(&.",             /* sband      */
+    "(&.=",            /* sband_ass  */
     "(|",              /* bor        */
     "(|=",             /* bor_ass    */
+    "(|.",             /* sbor       */
+    "(|.=",            /* sbor_ass   */
     "(^",              /* bxor       */
     "(^=",             /* bxor_ass   */
+    "(^.",             /* sbxor      */
+    "(^.=",            /* sbxor_ass  */
     "(<=>",            /* ncmp       */
     "(cmp",            /* scmp       */
     "(~",              /* compl      */
+    "(~.",             /* scompl     */
     "(atan2",          /* atan2      */
     "(cos",            /* cos        */
     "(sin",            /* sin        */
@@ -160,6 +174,7 @@ static const char * const PL_AMG_names[NofAMmeth] = {
     "(.=",             /* concat_ass */
     "(~~",             /* smart      */
     "(-X",             /* ftest      */
-    "(qr",             /* regexp     */
-    "DESTROY"
+    "(qr"
 };
+
+/* ex: set ro: */