From b9ae9c6f6459bc5906954e1b983a6002f0b68f8d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Sep 2001 12:59:00 +0000 Subject: use EISA_ID in more cases to have the name --- perl-install/Xconfigurator.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 8daf6a726..653885b54 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -485,19 +485,19 @@ sub monitorConfiguration(;$$) { my $monitor = shift || {}; my $useFB = shift || 0; - if ($monitor->{hsyncrange} && $monitor->{vsyncrange}) { - add2hash($monitor, { type => "monitor1", vendor => "Unknown", model => "Unknown" }); - return $monitor; - } - readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB"); if ($monitor->{EISA_ID}) { + log::l("EISA_ID: $monitor->{EISA_ID}"); if (my ($mon) = grep { lc($_->{eisa}) eq $monitor->{EISA_ID} } values %monitors) { add2hash($monitor, $mon); - return $monitor; + log::l("EISA_ID corresponds to: $monitor->{type}"); } } + if ($monitor->{hsyncrange} && $monitor->{vsyncrange}) { + add2hash($monitor, { type => "monitor1", vendor => "Unknown", model => "Unknown" }); + return $monitor; + } my $good_default = (arch() =~ /ppc/ ? 'Apple|' : 'Generic|') . translate($good_default_monitor); $monitor->{type} ||= -- cgit v1.2.1