From 478829f5e7ca7a7db7c6079493acabd8ad91477f Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:41 +0000
Subject: services: Use the appropriate tool to start/stop services

---
 perl-install/services.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 179fe0972..f6989806b 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -325,7 +325,11 @@ sub _set_service {
 
 sub _run_action {
     my ($service, $action) = @_;
-    run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", $action);
+    if (running_systemd()) {
+        run_program::rooted($::prefix, '/bin/systemctl', $action, "$service.service");
+    } else {
+        run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", $action);
+    }
 }
 
 sub doit {
-- 
cgit v1.2.1