From dd34a8c52724e2811a6674c1d4eec04e6bc033bf Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 14 Sep 2001 17:03:36 +0000
Subject: fixed filtering of depth for newt version.

---
 perl-install/Xconfigurator.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 18ef410da..684f34222 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -871,8 +871,9 @@ sub chooseResolutions($$;$) {
     my $allowed_depth = allowedDepth($card);
 
     local $_ = $in->ask_from_list(_("Resolutions"), "", 
-				  [ if_(!$allowed_depth || exists $allowed_depth->{$::a},
-					map_each { map { "$_->[0]x$_->[1] ${main::a}bpp" } @$::b } %{$card->{depth}}) ]) or return;
+				  [ map_each { if_(!$allowed_depth || exists $allowed_depth->{$::a},
+						   map { "$_->[0]x$_->[1] ${main::a}bpp" } @$::b) } %{$card->{depth}} ])
+      or return;
     reverse /(\d+)x\S+ (\d+)/;
 }
 
-- 
cgit v1.2.1