From d370b22edbdd5028b0b551372f9a677354bca290 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Apr 2012 16:37:36 +0000
Subject: perl_checker cleanups

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

(limited to 'perl-install')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 1210077b1..99172f78e 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -305,12 +305,12 @@ sub _set_service {
 
     if (member($service, @xinetd_services)) {
         run_program::rooted($::prefix, "chkconfig", $enable ? "--add" : "--del", $service);
-    } elsif (running_systemd() or has_systemd()) {
+    } elsif (running_systemd() || has_systemd()) {
         # systemctl rejects any symlinked units. You have to enabled the real file
         if (-l "/lib/systemd/system/$service.service") {
             $service = basename(readlink("/lib/systemd/system/$service.service"));
         } else {
-            $service = $service.".service";
+            $service = $service . ".service";
         }
         run_program::rooted($::prefix, "/bin/systemctl", $enable ? "enable" : "disable", $service);
     } else {
-- 
cgit v1.2.1