[PATCH] Attack of the C loops, round 1

Date: Mon, 12 Nov 2001 12:07:29 -0800
Message-Id: <200111122007.MAA01994@oregonnet.com>

Subject: [PATCH] bytecode.pl (tiny patch)
From: Richard Soderberg <rs@oregonnet.com>
Date: Mon, 12 Nov 2001 12:53:24 -0800
Message-Id: <200111122053.MAA06272@oregonnet.com>

p4raw-id: //depot/perl@12973

diff --git a/bytecode.pl b/bytecode.pl
index 89536ae..0e28020 100644 (file)
--- 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;