summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index f852fe573..f7efdc5e3 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -447,7 +447,11 @@ sub is_service_running ($) {
my ($service) = @_;
# Exit silently if the service is not installed
service_exists($service) or return 1;
- run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", '>', '/dev/null', '2>', '/dev/null', "status");
+ if (running_systemd()) {
+ run_program::rooted($::prefix, '/bin/systemctl', '--quiet', 'is-active', "$service.service");
+ } else {
+ run_program::rooted($::prefix, '/sbin/service', $service, 'status');
+ }
}
sub starts_on_boot {