summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-11-27 17:13:40 +0000
committerFrancois Pons <fpons@mandriva.com>2001-11-27 17:13:40 +0000
commit8d98bc8077692874424e213da6cb3129741d2602 (patch)
treef480f8f9bcb75fe3772dbeed2741bdf6e129fcd1 /perl-install
parentad8edae312e2d3676ac2e2b5ef76b8ba8d20f940 (diff)
downloaddrakx-backup-do-not-use-8d98bc8077692874424e213da6cb3129741d2602.tar
drakx-backup-do-not-use-8d98bc8077692874424e213da6cb3129741d2602.tar.gz
drakx-backup-do-not-use-8d98bc8077692874424e213da6cb3129741d2602.tar.bz2
drakx-backup-do-not-use-8d98bc8077692874424e213da6cb3129741d2602.tar.xz
drakx-backup-do-not-use-8d98bc8077692874424e213da6cb3129741d2602.zip
avoid problem of array reference badly evaluated.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm2
1 files changed, 1 insertions, 1 deletions
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;