diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-11-12 04:07:29 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-13 13:42:40 +0000 |
| commit | e3751d82ab424ea356f7b822ac173dabf670d6d2 (patch) | |
| tree | 936e586ad3adc167e1de8de3b3f19d86ef47860d /bytecode.pl | |
| parent | 61421900a9a844e876ebbbc683353f32d300c303 (diff) | |
| download | perl-e3751d82ab424ea356f7b822ac173dabf670d6d2.tar.gz | |
[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
Diffstat (limited to 'bytecode.pl')
| -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; |