diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-11-27 17:13:40 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-11-27 17:13:40 +0000 |
| commit | 8d98bc8077692874424e213da6cb3129741d2602 (patch) | |
| tree | f480f8f9bcb75fe3772dbeed2741bdf6e129fcd1 /perl-install/Xconfigurator.pm | |
| parent | ad8edae312e2d3676ac2e2b5ef76b8ba8d20f940 (diff) | |
| download | drakx-8d98bc8077692874424e213da6cb3129741d2602.tar drakx-8d98bc8077692874424e213da6cb3129741d2602.tar.gz drakx-8d98bc8077692874424e213da6cb3129741d2602.tar.bz2 drakx-8d98bc8077692874424e213da6cb3129741d2602.tar.xz drakx-8d98bc8077692874424e213da6cb3129741d2602.zip | |
avoid problem of array reference badly evaluated.
Diffstat (limited to 'perl-install/Xconfigurator.pm')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 2 |
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; |