From a6f5badbd4ab6f34b5340a45c7a6557395eddc89 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Sep 2000 09:41:04 +0000
Subject: no_comment

---
 perl-install/Xconfig.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index fb1b03cc4..6bad6d93e 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -93,10 +93,11 @@ sub getinfoFromXF86Config {
 	}
     }
     #- get the default resolution according the the current file.
-    my @depth = keys %{$o->{card}{depth}};
-    $o->{resolution_wanted} ||=
-      ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][0]) . "x" .
-	($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][1]);
+    if (my @depth = keys %{$o->{card}{depth}}) {
+	$o->{resolution_wanted} ||=
+	  ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][0]) . "x" .
+	    ($o->{card}{depth}{$o->{default_depth} || $depth[0]}[0][1]);
+    }
     $o;
 }
 
-- 
cgit v1.2.1