From f378b1e1cb1ff19b5730850e3790ec6fbcda76a1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 13 Feb 2003 10:34:12 +0000
Subject: (do_not_start_service_on_boot) : simplify it

---
 perl-install/services.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 4f46bbbe4..86b3a35c9 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -344,9 +344,7 @@ sub start_service_on_boot ($) {
 
 sub do_not_start_service_on_boot ($) {
     my ($service) = @_;
-    run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service)
-	or return 0;
-    return 1;
+    run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service) ? 0 : 1;
 }
 
 1;
-- 
cgit v1.2.1