From 28cd3f2daef2daa0166c2d656030435945f4d04b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 7 Mar 2012 18:25:58 +0000
Subject: (_set_service) perl_checker cleanups

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

diff --git a/perl-install/services.pm b/perl-install/services.pm
index a2b8e5139..203e4154b 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -295,12 +295,12 @@ sub ask {
 sub _set_service {
     my ($service, $enable) = @_;
     
-    if ( -f "/lib/systemd/system/$service.service" ) {
-      if ( -l "/lib/systemd/system/$service.service" ) {
-        $service = basename(readlink("/lib/systemd/system/$service.service"))
+    if (-f "/lib/systemd/system/$service.service") {
+      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, "systemctl", $enable ? "enable" : "disable", $service);
     }
-- 
cgit v1.2.1