diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-31 20:22:26 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:25 -0600 |
| commit | 086bd81997e126737c1995683218777b4a110d87 (patch) | |
| tree | c530c12cbafc1cbf4f091e2bd75b978057999748 /lib | |
| parent | e9c4b4f8682a79064477f0b21ed5e07c2a9abad6 (diff) | |
| download | perl-086bd81997e126737c1995683218777b4a110d87.tar.gz | |
mktables: Use for loop instead of each
I think the 'for' is easier to understand
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index bca01478aa..def260aa12 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -13521,8 +13521,7 @@ sub compile_perl() { # Everything else is added added afterwards, which preserves the input # ordering - $alias->reset_each_range; - while (my ($range) = $alias->each_range) { + foreach my $range ($alias->ranges) { next if $range->value eq ""; my $code_point = $range->start; if ($code_point != $range->end) { |