From 81068b4c188a82c0ae486665617f385997e619cd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 16 Sep 1999 17:30:46 +0000
Subject: no_comment

---
 perl-install/Xconfig.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index e22168377..acab3ca55 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -95,8 +95,20 @@ sub getinfoFromDDC {
     my $o = shift || {};
     my $O = $o->{monitor} ||= {};
     return $o if $O->{hsyncrange} && $O->{vsyncrange} && $O->{modelines};
-    my ($h, $v, @l) = `ddcxinfo`;
+    my ($m, @l) = `ddcxinfos`;
     $? == 0 or return $o;
+
+    $o->{card}{memory} = to_int($m);
+    while (($_ = shift @l) ne "\n") {
+	my ($depth, $x, $y) = split;
+	$depth = int(log($depth) / log(2));
+	if ($depth >= 8 && $x >= 640) {
+	    push @{$o->{card}{depth}{$depth}}, [ $x, $y ];
+	    push @{$o->{card}{depth}{32}}, [ $x, $y ] if $depth == 24;
+	}
+    }
+    my ($h, $v, @m) = @l;
+
     chop $h; chop $v;
     $O->{hsyncrange} ||= $h;
     $O->{vsyncrange} ||= $v;
-- 
cgit v1.2.1