From 8ad913dde1837343c88867fc5d83c851e815e653 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 15 Oct 2007 12:35:01 +0000
Subject: simplify (for next commit)

---
 perl-install/any.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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