diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-13 11:29:44 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-13 11:29:44 +0000 |
| commit | 48745131a6c9ebf0a779b475c3b231c7e611c91c (patch) | |
| tree | 70f634c94d4a7006b918920d9172274e7d39fa18 /perl-install | |
| parent | 6169dc5330a39dbdb902d3555715010c4cbbcaad (diff) | |
| download | drakx-48745131a6c9ebf0a779b475c3b231c7e611c91c.tar drakx-48745131a6c9ebf0a779b475c3b231c7e611c91c.tar.gz drakx-48745131a6c9ebf0a779b475c3b231c7e611c91c.tar.bz2 drakx-48745131a6c9ebf0a779b475c3b231c7e611c91c.tar.xz drakx-48745131a6c9ebf0a779b475c3b231c7e611c91c.zip | |
- ensure services are always listed in the same order
- simplify installed services list build
Diffstat (limited to 'perl-install')
| -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"), |