From 9be236685dc6085817ea8ae996b91bbc1641d91c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 27 Mar 2008 09:41:49 +0000
Subject: handle services with "-" as default chkconfig level in more places
 (by reusing _set_service wrapper)

---
 perl-install/NEWS        | 2 ++
 perl-install/services.pm | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 62e3819d0..6493b6642 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -4,6 +4,8 @@
   (*old* bug!)
 - draksplash:
   o fix reading grub conf (#39346)
+- services backend:
+  o handle services with "-" as default chkconfig level in more places
 
 Version 10.20 - 25 March 2008
 
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 705f4eae3..82115c82f 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -383,12 +383,12 @@ sub starts_on_boot {
 
 sub start_service_on_boot ($) {
     my ($service) = @_;
-    run_program::rooted($::prefix, "/sbin/chkconfig", "--add", $service);
+    _set_service($service, 1);
 }
 
 sub do_not_start_service_on_boot ($) {
     my ($service) = @_;
-    run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service);
+    _set_service($service, 0);
 }
 
 sub enable {
-- 
cgit v1.2.1