From 6391f72c64d4ea922ab3601ae801b14ecb529dac Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Wed, 1 Sep 2004 12:36:35 +0000 Subject: - Lete the function "start_not_running_service()" really start the specified service if it is not running instead of being a copy of the function "is_service_running()". --- perl-install/services.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/perl-install/services.pm b/perl-install/services.pm index 08afbd2c5..f3f565217 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -341,6 +341,10 @@ sub start_not_running_service ($) { # Exit silently if the service is not installed return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service"); run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "status"); + if (($? >> 8) != 0) { + run_program::rooted($::prefix, + "/etc/rc.d/init.d/$service", "start"); + } return (($? >> 8) != 0) ? 0 : 1; } -- cgit v1.2.1