diff options
| -rwxr-xr-x | perl-install/standalone/logdrake | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 8a0d69740..e504a529c 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -408,10 +408,7 @@ my $r; webmin => N("Webmin Service"), xinetd => N("Xinetd Service") }; - my @installed_d; - foreach my $serv (keys %$service) { - -e "$initdir/$serv" && push @installed_d, $serv; - } + my @installed_d = grep { -e "$initdir/$_" } sort keys %$service; my %services_to_check; $in->ask_from(N("service setting"), N("You will receive an alert if one of the selected services is no longer running"), |