summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-13 11:29:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-13 11:29:44 +0000
commit48745131a6c9ebf0a779b475c3b231c7e611c91c (patch)
tree70f634c94d4a7006b918920d9172274e7d39fa18 /perl-install
parent6169dc5330a39dbdb902d3555715010c4cbbcaad (diff)
downloaddrakx-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-xperl-install/standalone/logdrake5
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"),