From 86722a4fa610507e756d16da029aa88cec0e9c45 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 26 Apr 2002 13:34:18 +0000
Subject: fixed some machine with two present i830 CGC but only one in reality.

---
 perl-install/Xconfigurator.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 6e849c3e6..022409ab5 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -158,6 +158,7 @@ sub keepOnlyLegalModes {
 sub cardConfigurationAuto() {
     my @cards;
     if (my @c = grep { $_->{driver} =~ /(Card|Server):/ } detect_devices::probeall()) {
+	@c >= 2 && $c[0]{description} eq $c[1]{description} && $c[0]{description} =~ /82830 CGC/ and shift @c;
 	foreach my $i (0..$#c) {
 	    local $_ = $c[$i]->{driver};
 	    my $card = { identifier => ($c[$i]{description} . (@c > 1 && " $i")) };
-- 
cgit v1.2.1