From 71acd1b0d107928e6773d67dfed40f00f11713de Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:33 +0000
Subject: services: Whitespace

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

(limited to 'perl-install')

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 7acb5cdbf..73949c6f0 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -346,9 +346,9 @@ sub xinetd_services() {
     local $ENV{LANGUAGE} = 'C';
     my @xinetd_services;
     foreach (run_program::rooted_get_stdout($::prefix, '/sbin/chkconfig', '--list', '--type', 'xinetd')) {
-	if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) {
-	    push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
-	}
+        if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) {
+            push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
+        }
     }
     @xinetd_services;
 }
-- 
cgit v1.2.1