database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-30 11:03:19 +03:00
Code Activity

Silence perl critic

Browse Source 
Commit 27bdec0684 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.
This commit is contained in:
Andrew Dunstan
2025-03-15 17:41:54 -04:00
parent 27bdec0684
commit 5eabd91a83
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/common/unicode/generate-unicode_case_table.pl
View File

@ -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))