diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-16 15:44:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-16 15:44:51 +0000 |
| commit | 4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3 (patch) | |
| tree | 94fa062892763df078fec5f4d395ff9a7060635e | |
| parent | 0eb62bfc743007ce1711284e5252c20a15673949 (diff) | |
| download | drakx-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.pm | 2 |
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) = @_; |