diff options
| author | Pascal Terjan <pterjan@mandriva.org> | 2009-03-11 15:00:55 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mandriva.org> | 2009-03-11 15:00:55 +0000 |
| commit | d05d91c1964a43c3e5c80a2681dcbf76eca16ca6 (patch) | |
| tree | 6a4a617b0f2e8c2e653965ab764d1188ae63f657 | |
| parent | b49a30481e1455cc938f20714cd64c34e872546f (diff) | |
| download | perl-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
| -rw-r--r-- | lib/MDK/Common/System.pm | 6 |
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 { |