Add a new overload type, "qr".

diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm
index 7c39b1c..d9daab5 100644 (file)
--- a/lib/overload/numbers.pm
+++ b/lib/overload/numbers.pm
@@ -81,6 +81,7 @@ our @names = qw#
     (.=
     (~~
     (-X
+    (qr
     DESTROY
 #;
 
@@ -152,6 +153,7 @@ our @enums = qw#
     concat_ass
     smart
     ftest
+    regexp
     DESTROY
 #;
 

diff --git a/overload.c b/overload.c
index 909a0ee..4a9c94b 100644 (file)
--- a/overload.c
+++ b/overload.c
@@ -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"
 };

diff --git a/overload.h b/overload.h
index 1a1e69c..bbef5cb 100644 (file)
--- a/overload.h
+++ b/overload.h
@@ -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. */

diff --git a/overload.pl b/overload.pl
index aae9e6f..d4ba9a7 100644 (file)
--- a/overload.pl
+++ b/overload.pl
@@ -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