From 8f48fd94bf41b4c062db2a32803c4abd22b81a33 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Dec 2002 14:21:51 +0000
Subject: more restricted detection of non-use of if_()-like exprs

---
 MDK/Common/System.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'MDK/Common')

diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm
index 7ef5fc7..c41485b 100644
--- a/MDK/Common/System.pm
+++ b/MDK/Common/System.pm
@@ -300,7 +300,7 @@ sub setVarsInShMode {
     @fields = keys %$l unless @fields;
 
     MDK::Common::File::output($file, 
-	map { $l->{$_} ? "$_=$l->{$_}\n" : @{[]} } @fields
+	map { $l->{$_} ? "$_=$l->{$_}\n" : () } @fields
     );
     chmod $mod, $file;
 }
@@ -310,8 +310,8 @@ sub setExportedVarsInSh {
     @fields = keys %$l unless @fields;
 
     MDK::Common::File::output($file, 
-	(map { $l->{$_} ? "$_=$l->{$_}\n" : @{[]} } @fields), 
-	@fields ? "export " . join(" ", @fields) . "\n" : @{[]},
+	(map { $l->{$_} ? "$_=$l->{$_}\n" : () } @fields), 
+	@fields ? "export " . join(" ", @fields) . "\n" : (),
     );
 }
 
@@ -319,7 +319,7 @@ sub setExportedVarsInCsh {
     my ($file, $l, @fields) = @_;
     @fields = keys %$l unless @fields;
 
-    MDK::Common::File::output($file, map { $l->{$_} ? "setenv $_ $l->{$_}\n" : @{[]} } @fields);
+    MDK::Common::File::output($file, map { $l->{$_} ? "setenv $_ $l->{$_}\n" : () } @fields);
 }
 
 sub template2file {
-- 
cgit v1.2.1