From 9837fad1b71f1809b333c2adb49ee8f39adc55f4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 10 Feb 2004 15:21:20 +0000
Subject: for install, a service is on if there is at least one runlevel for
 which the service is on (esp. for service "dm") (bugzilla #7146)

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

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 03374f22b..2c6fa1051 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -304,7 +304,7 @@ sub services() {
     my ($services, $xinetd_services) = services_raw();
     my @l = @$xinetd_services;
     if ($::isInstall) {
-        push @l, map { [ $_->[0], @{$_->[1]} > 1 ] } @$services;
+        push @l, map { [ $_->[0], @{$_->[1]} > 0 ] } @$services;
     } else {
         my $runlevel = (split " ", `/sbin/runlevel`)[1];
         push @l, map { [ $_->[0], member($runlevel, @{$_->[1]}) ] } @$services;
-- 
cgit v1.2.1