From 4af15017a550c2b365b1194430c98295030e9ca6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 3 Apr 2008 06:10:04 +0000
Subject: (get_html_file) fix broken help because of s/pt_BR/pt_br/ change in
 file names (#36774)

---
 perl-install/install/NEWS       | 1 +
 perl-install/interactive/gtk.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 5bbc422e4..4102804fe 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - 2008.1 logo (the good one)
+- fix broken help because of s/pt_BR/pt_br/ change in file names (#36774)
 
 Version 10.26 - 2 April 2008
 
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 2315556fd..25e60329f 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -720,7 +720,7 @@ sub get_html_file {
       map {
           my $id = $_;
           require lang;
-          map { ("$_/$id") } (split ':', lang::getLANGUAGE($o->{locale}{lang})), '';
+          map { ("$_/$id") } map { $_, lc($_) } (split ':', lang::getLANGUAGE($o->{locale}{lang})), '';
       } $url;
 }
 
-- 
cgit v1.2.1