From 4400241314d963c03bdd072e407285ae4110be2a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 13 Feb 2003 10:36:59 +0000 Subject: (start_service_on_boot) prevent copying this style --- perl-install/services.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/services.pm b/perl-install/services.pm index 86b3a35c9..de2a961ef 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -337,14 +337,12 @@ sub starts_on_boot { sub start_service_on_boot ($) { my ($service) = @_; - run_program::rooted($::prefix, "/sbin/chkconfig", "--add", $service) - or return 0; - return 1; + run_program::rooted($::prefix, "/sbin/chkconfig", "--add", $service) ? 1 : 0; } sub do_not_start_service_on_boot ($) { my ($service) = @_; - run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service) ? 0 : 1; + run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service) ? 1 : 0; } 1; -- cgit v1.2.1