summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-05 11:29:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-05 11:29:12 +0000
commit8ea8d2ad219666daab831fbeb56a5605dacda953 (patch)
tree177c997c125b6c942c5057664986b6cfaa0e172d /perl-install
parent099d5615b0763d1fd7ade2bd7f9a54700bd7aec5 (diff)
downloaddrakx-8ea8d2ad219666daab831fbeb56a5605dacda953.tar
drakx-8ea8d2ad219666daab831fbeb56a5605dacda953.tar.gz
drakx-8ea8d2ad219666daab831fbeb56a5605dacda953.tar.bz2
drakx-8ea8d2ad219666daab831fbeb56a5605dacda953.tar.xz
drakx-8ea8d2ad219666daab831fbeb56a5605dacda953.zip
non-case dependent EISA comparison
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig.pm2
-rw-r--r--perl-install/Xconfigurator.pm2
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;
}