Add a new overload type, "qr".
authorBen Morrow <ben@morrow.me.uk>
Sat, 24 Oct 2009 13:58:33 +0000 (14:58 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Sun, 1 Nov 2009 15:18:04 +0000 (16:18 +0100)
lib/overload/numbers.pm
overload.c
overload.h
overload.pl

index 7c39b1c..d9daab5 100644 (file)
@@ -81,6 +81,7 @@ our @names = qw#
     (.=
     (~~
     (-X
+    (qr
     DESTROY
 #;
 
@@ -152,6 +153,7 @@ our @enums = qw#
     concat_ass
     smart
     ftest
+    regexp
     DESTROY
 #;
 
index 909a0ee..4a9c94b 100644 (file)
@@ -83,6 +83,7 @@ static const U8 PL_AMG_namelens[NofAMmeth] = {
     3,
     3,
     3,
+    3,
     7
 };
 
@@ -159,5 +160,6 @@ static const char * const PL_AMG_names[NofAMmeth] = {
     "(.=",
     "(~~",
     "(-X",
+    "(qr",
     "DESTROY"
 };
index 1a1e69c..bbef5cb 100644 (file)
@@ -80,6 +80,7 @@ enum {
     concat_ass_amg,
     smart_amg,
     ftest_amg,
+    regexp_amg,
     DESTROY_amg,
     max_amg_code
     /* Do not leave a trailing comma here.  C9X allows it, C89 doesn't. */
index aae9e6f..d4ba9a7 100644 (file)
@@ -229,5 +229,6 @@ concat              (.
 concat_ass     (.=
 smart          (~~
 ftest           (-X
+regexp          (qr
 # Note: Perl_Gv_AMupdate() assumes that DESTROY is the last entry
 DESTROY                DESTROY