michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-06-04 20:30:22 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Make perlcritic happy again

Browse Source
This commit is contained in:
Joe Cooper
2026-05-17 22:25:03 -05:00
parent 4bdb518493
commit 9eff352005
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
nftables/nftables-lib.pl
View File

@@ -1175,7 +1175,8 @@ foreach my $svc (read_etc_service_defs($services_file)) {
foreach my $svc (setup_quick_service_defs()) {
merge_quick_service(\%defs, $svc);
}
return sort { lc($a->{'label'}) cmp lc($b->{'label'}) } values %defs;
my @sorted = sort { lc($a->{'label'}) cmp lc($b->{'label'}) } values %defs;
return @sorted;
}
# service_search_text(&service)
@@ -2543,7 +2544,7 @@ foreach my $service (@services) {
my $port = $map->{lc($proto || '')}->{lc($service)};
return $port if (defined($port));
}
return undef;
return;
}
# read_etc_services([services-file])
@@ -2616,12 +2617,12 @@ return 0;
sub configured_port_from_address
{
my ($value, $default) = @_;
return undef if (!defined($value) || $value eq '');
return if (!defined($value) || $value eq '');
return $1 if ($value =~ /^(\d+)$/);
return $1 if ($value =~ /^\[[^\]]+\]:(\d+)$/);
return $1 if ($value =~ /^[^:]+:(\d+)$/);
return $default if (defined($default) && $value =~ /\S/);
return undef;
return;
}
# address_is_loopback(address)