From d05d91c1964a43c3e5c80a2681dcbf76eca16ca6 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Wed, 11 Mar 2009 15:00:55 +0000
Subject: add spaces to please perl_checker

---
 lib/MDK/Common/System.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index 05003bb..900f6aa 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -383,7 +383,7 @@ sub setVarsInShMode {
     my ($file, $mod, $l, @fields) = @_;
     @fields = keys %$l unless @fields;
     my $string = join('',
-	map { "$_=".quoteForSh($l->{$_})."\n" } grep { $l->{$_} } @fields
+	map { "$_=" . quoteForSh($l->{$_}) . "\n" } grep { $l->{$_} } @fields
     );
     if ($file =~ m!^/home/!) {
         MDK::Common::File::secured_output($file, $string);
@@ -399,7 +399,7 @@ sub setExportedVarsInSh {
     @fields = keys %$l unless @fields;
 
     MDK::Common::File::output($file, 
-	(map { $l->{$_} ? "$_=".quoteForSh($l->{$_})."\n" : () } @fields), 
+	(map { $l->{$_} ? "$_=" . quoteForSh($l->{$_}) . "\n" : () } @fields), 
 	@fields ? "export " . join(" ", @fields) . "\n" : (),
     );
 }
@@ -408,7 +408,7 @@ sub setExportedVarsInCsh {
     my ($file, $l, @fields) = @_;
     @fields = keys %$l unless @fields;
 
-    MDK::Common::File::output($file, map { $l->{$_} ? "setenv $_ ".quoteForSh($l->{$_})."\n" : () } @fields);
+    MDK::Common::File::output($file, map { $l->{$_} ? "setenv $_ " . quoteForSh($l->{$_}) . "\n" : () } @fields);
 }
 
 sub template2file {
-- 
cgit v1.2.1