From 8d98bc8077692874424e213da6cb3129741d2602 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 27 Nov 2001 17:13:40 +0000
Subject: avoid problem of array reference badly evaluated.

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

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 484aaa171..119b5da64 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -923,7 +923,7 @@ sub resolutionsConfiguration {
     my $wres = first(split 'x', $res);
 
     #- take the first available resolution <= the wanted resolution
-    $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}};
+    eval { $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}} };
     my $depth = eval { $o->{default_depth} || autoDefaultDepth($card, $wres) };
 
     $auto or ($depth, $wres) = chooseResolutions($card, $depth, $wres) or return;
-- 
cgit v1.2.1