summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-10 15:21:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-10 15:21:20 +0000
commit9837fad1b71f1809b333c2adb49ee8f39adc55f4 (patch)
tree7b2422be42f28eecf5508a1aae28452efbf9eb11 /perl-install/services.pm
parent137e3dfba6e98d0b1b4319f2b908fe4ad1053586 (diff)
downloaddrakx-9837fad1b71f1809b333c2adb49ee8f39adc55f4.tar
drakx-9837fad1b71f1809b333c2adb49ee8f39adc55f4.tar.gz
drakx-9837fad1b71f1809b333c2adb49ee8f39adc55f4.tar.bz2
drakx-9837fad1b71f1809b333c2adb49ee8f39adc55f4.tar.xz
drakx-9837fad1b71f1809b333c2adb49ee8f39adc55f4.zip
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)
Diffstat (limited to 'perl-install/services.pm')
-rw-r--r--perl-install/services.pm2
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;