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)

1 files changed, 1 insertions, 1 deletions

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;