summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-03-11 15:00:55 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-03-11 15:00:55 +0000
commitd05d91c1964a43c3e5c80a2681dcbf76eca16ca6 (patch)
tree6a4a617b0f2e8c2e653965ab764d1188ae63f657 /lib
parentb49a30481e1455cc938f20714cd64c34e872546f (diff)
downloadperl-MDK-Common-d05d91c1964a43c3e5c80a2681dcbf76eca16ca6.tar
perl-MDK-Common-d05d91c1964a43c3e5c80a2681dcbf76eca16ca6.tar.gz
perl-MDK-Common-d05d91c1964a43c3e5c80a2681dcbf76eca16ca6.tar.bz2
perl-MDK-Common-d05d91c1964a43c3e5c80a2681dcbf76eca16ca6.tar.xz
perl-MDK-Common-d05d91c1964a43c3e5c80a2681dcbf76eca16ca6.zip
add spaces to please perl_checker
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common/System.pm6
1 files 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 {