From b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Mar 2002 17:56:32 +0000 Subject: restrict localedrake to installed lang --- perl-install/any.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index ce7e93feb..591363911 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -840,6 +840,9 @@ Do you want to use this feature?"), sub selectLanguage { my ($in, $lang, $langs_) = @_; my $langs = $langs_ || {}; + my @langs = lang::list(exclude_non_necessary_utf8 => $::isInstall, + exclude_non_installed_langs => !$::isInstall, + ); $in->ask_from_( { messages => _("Please choose a language to use."), title => 'language choice', @@ -849,7 +852,7 @@ sub selectLanguage { }, }, [ { val => \$lang, separator => '|', - format => \&lang::lang2text, list => [ lang::list($::isInstall) ] }, + format => \&lang::lang2text, list => \@langs }, if_($langs_, (map {; { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} }, text => $_->[1], advanced => 1, -- cgit v1.2.1