This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add enum index in overload.h comments
[perl5.git] / regen / overload.pl
index a41c820..1cd07dd 100644 (file)
@@ -109,7 +109,8 @@ for (0..$#enums) {
     die if $op =~ m{\*/};
     my $l =   3 - int((length($enums[$_]) + 9) / 8);
     $l = 1 if $l < 1;
-    printf "    %s_amg,%s/* %-8s */\n", $enums[$_], ("\t" x $l), $op;
+    printf "    %s_amg,%s/* 0x%02x %-8s */\n", $enums[$_],
+       ("\t" x $l), $_, $op;
 }
 
 print <<'EOF';