Fix overload index mismatch in overloading logic.

In amagic_call(), the 'method' arg comes the overload enum in overload.h, but is expected to match the bit set from %overloading::numbers::names. It values wrongly start at 1, differing by 1 from the enum indexes. This didn't appear in the tests because 'method' was reduced modulo 7 instead of 8.

1 files changed, 2 insertions, 2 deletions

diff --git a/overload.pl b/overload.pl
index 01dd550e4e..6f0fe34ffd 100644
--- a/overload.pl
+++ b/overload.pl
@@ -58,9 +58,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
 }