From 041bce7f1ab685a4290865e4eb2c2f5d2aaac285 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 23 Sep 2000 23:30:54 +0000
Subject: no_comment

---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/services.pm')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index fd1ea51ce..319e4ff49 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -88,7 +88,7 @@ xfs => __("Starts and stops the X Font Server at boot time and shutdown."),
 sub services {
     my ($prefix) = @_;
     my $cmd = $prefix ? "chroot $prefix" : "";
-    my @l = map { [ /(\S+)/, /:on/ ] } sort `LANGUAGE=C $cmd chkconfig --list`;
+    my @l = map { [ /([^\s:]+)/, /\bon\b/ ] } grep { !/:$/ } sort `LANGUAGE=C $cmd chkconfig --list`;
     [ map { $_->[0] } @l ], [ mapgrep { $_->[1], $_->[0] } @l ];
 }
 
-- 
cgit v1.2.1