diff options
| -rw-r--r-- | bytecode.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecode.pl b/bytecode.pl index 89536ae36e..0e28020e99 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -109,7 +109,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) EOT -for (my $i = 0; $i < @specialsv; $i++) { +for my $i ( 0 .. $#specialsv ) { print BYTERUN_C " specialsv_list[$i] = $specialsv[$i];\n"; } @@ -209,7 +209,7 @@ EOT my $add_enum_value = 0; my $max_insn; -for ($i = 0; $i < @insn_name; $i++) { +for $i ( 0 .. $#insn_name ) { $insn = uc($insn_name[$i]); if (defined($insn)) { $max_insn = $i; |