From 4babc8a0ffdbb27b3b962505f7e1aa7a943c15c3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Jan 2005 15:44:51 +0000
Subject: don't be too picky on uppercase or lowercase sections

---
 perl-install/Xconfig/xfree.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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) = @_;
-- 
cgit v1.2.1