From 8ea8d2ad219666daab831fbeb56a5605dacda953 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Sep 2001 11:29:12 +0000
Subject: non-case dependent EISA comparison

---
 perl-install/Xconfig.pm       | 2 +-
 perl-install/Xconfigurator.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index fac946783..280b7f987 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -210,7 +210,7 @@ sub getinfoFromDDC {
     $O->{hsyncrange} ||= $h =~ /^(\S*)/;
     $O->{vsyncrange} ||= $v =~ /^(\S*)/;
     $O->{size} ||= to_float($size);
-    $O->{EISA_ID} = $1 if $size =~ /EISA ID: (\S*)/;
+    $O->{EISA_ID} = lc($1) if $size =~ /EISA ID: (\S*)/;
     $O->{modelines} ||= join '', @m;
     $o;
 }
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 016d510fd..8daf6a726 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -493,7 +493,7 @@ sub monitorConfiguration(;$$) {
     readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB");
 
     if ($monitor->{EISA_ID}) {
-	if (my ($mon) = grep { $_->{eisa} eq $monitor->{EISA_ID} } values %monitors) {
+	if (my ($mon) = grep { lc($_->{eisa}) eq $monitor->{EISA_ID} } values %monitors) {
 	    add2hash($monitor, $mon);
 	    return $monitor;
 	}
-- 
cgit v1.2.1