From 3a073373c565e013c265ed8ce195d66f1c3ea4a0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 15 Oct 2007 12:37:50 +0000
Subject: - localedrake:   o do propose "Suisse" after selecting french
 language (#34675)

nb: it was not selected because CH is associated to de_CH whereas it also
exists fr_CH. hence country_to_locales()
---
 perl-install/any.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 3bc6d879a..241cb0a0e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1036,7 +1036,9 @@ sub selectCountry {
     my $country = $locale->{country};
     my @countries = lang::list_countries(exclude_non_installed => !$::isInstall);
     my @best = grep {
-	lang::locale_to_main_locale(lang::c2locale($_)) eq lang::locale_to_main_locale($locale->{lang});
+	find { 
+	    lang::locale_to_main_locale($_) eq lang::locale_to_main_locale($locale->{lang});
+	} lang::country_to_locales($_);
     } @countries;
     @best == 1 and @best = ();
 
-- 
cgit v1.2.1