diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 10:31:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 10:31:11 +0000 |
| commit | e7d68d879571ae2e5a3301da94c18c3f9151cec0 (patch) | |
| tree | a41aa9b5e6fefe681bbf2bf2d7d3ae9682d64e61 /perl-install/install_any.pm | |
| parent | 74e89d3c3ee6e4d083edf5a8633793f1ba77ab84 (diff) | |
| download | drakx-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.pm | 5 |
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; |