diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2025-03-15 17:41:54 -0400 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2025-03-15 17:41:54 -0400 |
| commit | 5eabd91a83adae75f53b61857343660919fef4c7 (patch) | |
| tree | 71ebffa0da30f6bdd5bc568804a4647184591202 | |
| parent | 27bdec06841d1bb004ca7627eac97808b08a7ac7 (diff) | |
| download | postgresql-5eabd91a83adae75f53b61857343660919fef4c7.tar.gz postgresql-5eabd91a83adae75f53b61857343660919fef4c7.zip | |
Silence perl critic
Commit 27bdec06841 uses a loop variable that is not strictly local to
the loop. Perlcritic disapproves, and there's really no reason as the
variable is not used outside the loop.
Per buildfarm animals koel and crake.
| -rw-r--r-- | src/common/unicode/generate-unicode_case_table.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/common/unicode/generate-unicode_case_table.pl b/src/common/unicode/generate-unicode_case_table.pl index 3c2edc7ca4d..ddd0980719b 100644 --- a/src/common/unicode/generate-unicode_case_table.pl +++ b/src/common/unicode/generate-unicode_case_table.pl @@ -619,7 +619,7 @@ sub branch sub make_ranges { my ($nums, $limit) = @_; - my ($prev, $start, $curr, $total, @sorted, @range); + my ($prev, $start, $total, @sorted, @range); @sorted = sort { $a <=> $b } @$nums; @@ -635,7 +635,7 @@ sub make_ranges # append final 'undef' to signal final iteration push @sorted, undef; - foreach $curr (@sorted) + foreach my $curr (@sorted) { # if last iteration always append the range if (!defined($curr) || ($curr - $prev > $limit)) |