summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-02 10:31:11 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-02 10:31:11 +0000
commite7d68d879571ae2e5a3301da94c18c3f9151cec0 (patch)
treea41aa9b5e6fefe681bbf2bf2d7d3ae9682d64e61 /perl-install/install_any.pm
parent74e89d3c3ee6e4d083edf5a8633793f1ba77ab84 (diff)
downloaddrakx-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar
drakx-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.gz
drakx-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.bz2
drakx-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.xz
drakx-e7d68d879571ae2e5a3301da94c18c3f9151cec0.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7e176fbbe..09a602a7c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -405,7 +405,10 @@ sub g_auto_install(;$) {
if (my $card = $::o->{X}{card}) {
$o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth);
- $o->{X}{card}{resolution_wanted} ||= join "x", @{$card->{depth}{$card->{default_depth}}[0]} if $card->{depth};
+ if ($card->{default_depth} and my $depth = $card->{depth}{$card->{default_depth}}) {
+ $depth ||= [];
+ $o->{X}{card}{resolution_wanted} ||= join "x", @{$depth->[0]} unless is_empty_array_ref($depth->[0]);
+ }
}
#- local $o->{partitioning}{clearall} = 1;