overload.pl -> regen/overload.pl

[perl5.git] / lib / overload / numbers.pm

diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm
index b768758..599361e 100644 (file)
--- a/lib/overload/numbers.pm
+++ b/lib/overload/numbers.pm
@@ -8,7 +8,7 @@
 #   License or the Artistic License, as specified in the README file.
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-# This file is built by overload.pl
+# This file is built by regen/overload.pl
 #
 
 package overload::numbers;
@@ -80,6 +80,8 @@ our @names = qw#
     (.
     (.=
     (~~
+    (-X
+    (qr
     DESTROY
 #;
 
@@ -150,10 +152,12 @@ our @enums = qw#
     concat
     concat_ass
     smart
+    ftest
+    regexp
     DESTROY
 #;
 
-{ my $i; our %names = map { $_ => ++$i } @names }
+{ my $i = 0; our %names = map { $_ => $i++ } @names }
 
-{ my $i; our %enums = map { $_ => ++$i } @enums }
+{ my $i = 0; our %enums = map { $_ => $i++ } @enums }