github-featured/webmin--webmin
2
0
Fork 0
Code Issues Pull Requests Deployments Models Agent Notes 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
nftables/nftables-lib.pl
+5 -4
View File
@@ -1175,7 +1175,8 @@ foreach my $svc (read_etc_service_defs($services_file)) {
foreach my $svc (setup_quick_service_defs()) { foreach my $svc (setup_quick_service_defs()) {
merge_quick_service(\%defs, $svc); 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) # service_search_text(&service)
@@ -2543,7 +2544,7 @@ foreach my $service (@services) {
my $port = $map->{lc($proto || '')}->{lc($service)}; my $port = $map->{lc($proto || '')}->{lc($service)};
return $port if (defined($port)); return $port if (defined($port));
} }
return undef; return;
} }
# read_etc_services([services-file]) # read_etc_services([services-file])
@@ -2616,12 +2617,12 @@ return 0;
sub configured_port_from_address sub configured_port_from_address
{ {
my ($value, $default) = @_; 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 $1 if ($value =~ /^\[[^\]]+\]:(\d+)$/);
return $1 if ($value =~ /^[^:]+:(\d+)$/); return $1 if ($value =~ /^[^:]+:(\d+)$/);
return $default if (defined($default) && $value =~ /\S/); return $default if (defined($default) && $value =~ /\S/);
return undef; return;
} }
# address_is_loopback(address) # address_is_loopback(address)