From aa48fa2f6615bcd28ea900565b425efa1a0679e9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 30 Nov 2007 14:08:46 +0000 Subject: make it more clear --- perl-install/lang.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 407760886..060c19d43 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -736,8 +736,8 @@ sub IM2packages { $is_kde3 = member('KDE', @sessions); $is_kde4 = member('KDE4', @sessions); my $per_lang = $IM_config{$locale->{IM}}{packages} || {}; - my $lang = analyse_locale_name($locale->{lang})->{main}; - my $packages = $per_lang->{$lang} || $per_lang->{generic}; + my $main_lang = analyse_locale_name($locale->{lang})->{main}; + my $packages = $per_lang->{$main_lang} || $per_lang->{generic}; my @pkgs = ($packages ? $packages->() : $locale->{IM}, $per_lang->{common} ? $per_lang->{common}->() : ()); @pkgs; -- cgit v1.2.1