From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Mon, 12 Nov 2001 12:07:29 +0000 (-0800)
Subject: [PATCH] Attack of the C loops, round 1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3751d82ab424ea356f7b822ac173dabf670d6d2;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;