summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/services.pm')
-rw-r--r--perl-install/services.pm4
1 files changed, 4 insertions, 0 deletions
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;
}