[perl #114864] Don’t use amt for DESTROY

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

diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm
index 2e9e9ac..a90c175 100644 (file)
--- a/lib/overload/numbers.pm
+++ b/lib/overload/numbers.pm
@@ -1,15 +1,15 @@
 # -*- buffer-read-only: t -*-
 #
-#   lib/overload/numbers.pm
+#    lib/overload/numbers.pm
 #
-#   Copyright (C) 2008 by Larry Wall and others
+#    Copyright (C) 2008 by Larry Wall and others
 #
-#   You may distribute under the terms of either the GNU General Public
-#   License or the Artistic License, as specified in the README file.
+#    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 overload.pl
-#
+# This file is built by regen/overload.pl.
+# Any changes made here will be lost!
 
 package overload::numbers;
 
@@ -80,7 +80,8 @@ our @names = qw#
     (.
     (.=
     (~~
-    DESTROY
+    (-X
+    (qr
 #;
 
 our @enums = qw#
@@ -150,10 +151,12 @@ our @enums = qw#
     concat
     concat_ass
     smart
-    DESTROY
+    ftest
+    regexp
 #;
 
 { my $i = 0; our %names = map { $_ => $i++ } @names }
 
 { my $i = 0; our %enums = map { $_ => $i++ } @enums }
 
+# ex: set ro: