summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-16 15:44:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-16 15:44:51 +0000
commit4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3 (patch)
tree94fa062892763df078fec5f4d395ff9a7060635e
parent0eb62bfc743007ce1711284e5252c20a15673949 (diff)
downloaddrakx-4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3.tar
drakx-4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3.tar.gz
drakx-4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3.tar.bz2
drakx-4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3.tar.xz
drakx-4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3.zip
don't be too picky on uppercase or lowercase sections
-rw-r--r--perl-install/Xconfig/xfree.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index a29713269..09f70dedf 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -446,7 +446,7 @@ sub remove_Section {
}
sub get_Sections {
my ($raw_X, $Section, $o_when) = @_;
- map { if_($_->{name} eq $Section && (!$o_when || $o_when->($_->{l})), $_->{l}) } @$raw_X;
+ map { if_(lc($_->{name}) eq lc($Section) && (!$o_when || $o_when->($_->{l})), $_->{l}) } @$raw_X;
}
sub get_Section {
my ($raw_X, $Section, $o_when) = @_;