From e7d68d879571ae2e5a3301da94c18c3f9151cec0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Dec 1999 10:31:11 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

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;
-- 
cgit v1.2.1