patch@2009-05-25.21:50:08 perl5db.t leaves db.out behind on VMS

[p5sagit/p5-mst-13.2.git] / overload.pl

diff --git a/overload.pl b/overload.pl
index 01dd550..b9c5cc6 100644 (file)
--- a/overload.pl
+++ b/overload.pl
@@ -1,9 +1,18 @@
 #!/usr/bin/perl -w
-
 #
-# Generate overload.h
+# Unconditionally regenerate:
+#
+#    overload.h
+#    overload.c
+#    lib/overload/numbers.pm
+#
+# from information stored in the DATA section of this file.
+#
 # This allows the order of overloading constants to be changed.
-# 
+#
+# Accepts the standard regen_lib -q and -v args.
+#
+# This script is normally invoked from regen.pl.
 
 BEGIN {
     # Get function prototypes
@@ -58,9 +67,9 @@ our \@enums = qw#
     @enums
 #;
 
-{ 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 }
 
 EOF
 }
@@ -217,5 +226,6 @@ repeat_ass  (x=
 concat         (.
 concat_ass     (.=
 smart          (~~
+ftest           (-X
 # Note: Perl_Gv_AMupdate() assumes that DESTROY is the last entry
 DESTROY                DESTROY