From 48745131a6c9ebf0a779b475c3b231c7e611c91c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 13 Oct 2003 11:29:44 +0000
Subject: - ensure services are always listed in the same order - simplify
 installed services list build

---
 perl-install/standalone/logdrake | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/standalone')

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"),
-- 
cgit v1.2.1