diff options
author | Colin Guthrie <colin@mageia.org> | 2012-04-24 20:10:43 +0000 |
---|---|---|
committer | Colin Guthrie <colin@mageia.org> | 2012-04-24 20:10:43 +0000 |
commit | dd2cd3d0db864897759577945e4cfbb174ee4d9d (patch) | |
tree | 66cdf1a6519c70d1eb67d31558aeba22fa8cf2aa /perl-install/services.pm | |
parent | 478829f5e7ca7a7db7c6079493acabd8ad91477f (diff) | |
download | drakx-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/services.pm')
-rw-r--r-- | perl-install/services.pm | 2 |
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 ($) { |