From dd2cd3d0db864897759577945e4cfbb174ee4d9d Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:43 +0000
Subject: services: Check for systemd unit when determining if a service
 exists.

This could be made more complex, but it'll do for now.
---
 perl-install/services.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/services.pm b/perl-install/services.pm
index f6989806b..f852fe573 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -405,7 +405,7 @@ sub services() {
 
 sub service_exists {
     my ($service) = @_;
-    -x "$::prefix/etc/rc.d/init.d/$service";
+    -x "$::prefix/etc/rc.d/init.d/$service" or -e "$::prefix/lib/systemd/system/$service.service" or -l "$::prefix/lib/systemd/system/$service.service";
 }
 
 sub restart ($) {
-- 
cgit v1.2.1