summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2012-04-24 20:10:43 +0000
committerColin Guthrie <colin@mageia.org>2012-04-24 20:10:43 +0000
commitdd2cd3d0db864897759577945e4cfbb174ee4d9d (patch)
tree66cdf1a6519c70d1eb67d31558aeba22fa8cf2aa /perl-install
parent478829f5e7ca7a7db7c6079493acabd8ad91477f (diff)
downloaddrakx-dd2cd3d0db864897759577945e4cfbb174ee4d9d.tar
drakx-dd2cd3d0db864897759577945e4cfbb174ee4d9d.tar.gz
drakx-dd2cd3d0db864897759577945e4cfbb174ee4d9d.tar.bz2
drakx-dd2cd3d0db864897759577945e4cfbb174ee4d9d.tar.xz
drakx-dd2cd3d0db864897759577945e4cfbb174ee4d9d.zip
services: Check for systemd unit when determining if a service exists.
This could be made more complex, but it'll do for now.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm2
1 files changed, 1 insertions, 1 deletions
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 ($) {