From 78e8097c578fb334c7440a5459fdb7aecc827feb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Nov 2002 17:36:32 +0000
Subject: - add/remove spaces to make perl_checker happy - remove redundant
 parentheses - add some parentheses for clarity

---
 perl-install/Xconfig/xfreeX.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/Xconfig/xfreeX.pm')

diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm
index ca2f91423..5853342f9 100644
--- a/perl-install/Xconfig/xfreeX.pm
+++ b/perl-install/Xconfig/xfreeX.pm
@@ -284,7 +284,7 @@ sub add_Section {
 }
 sub remove_Section {
     my ($raw_X, $Section, $when) = @_;
-    @$raw_X = grep { $_->{name} ne $Section || ($when && $when->($_->{l})) } @$raw_X;
+    @$raw_X = grep { $_->{name} ne $Section || $when && $when->($_->{l}) } @$raw_X;
     $raw_X;
 }
 sub get_Sections {
-- 
cgit v1.2.1