diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/services.pm | 4 |
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; } |