From f1ff46f7efbdc074536913c617e8af0cebaab1de Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:36 +0000
Subject: services: Add a couple systemd untility functions.

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

(limited to 'perl-install/services.pm')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index ea41eb878..02a9e38c6 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -342,6 +342,14 @@ sub doit {
     }
 }
 
+sub running_systemd() {
+    run_program::rooted($::prefix, '/bin/mountpoint', '-q', '/sys/fs/cgroup/systemd');
+}
+
+sub has_systemd() {
+    run_program::rooted($::prefix, '/bin/rpm', '-q', 'systemd-sysvinit');
+}
+
 sub xinetd_services() {
     local $ENV{LANGUAGE} = 'C';
     my @xinetd_services;
-- 
cgit v1.2.1