summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/localedrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-01 17:56:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-01 17:56:32 +0000
commitb4f6f62b291b9ef2ba4f93a4dfff791fd50c7540 (patch)
tree5dc1c4376baac124b3c223da4d5a73292ce9a1d3 /perl-install/standalone/localedrake
parent33e516ff5e432a1f76e2d965709c43f3c48fb33d (diff)
downloaddrakx-b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540.tar
drakx-b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540.tar.gz
drakx-b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540.tar.bz2
drakx-b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540.tar.xz
drakx-b4f6f62b291b9ef2ba4f93a4dfff791fd50c7540.zip
restrict localedrake to installed lang
Diffstat (limited to 'perl-install/standalone/localedrake')
-rw-r--r--perl-install/standalone/localedrake5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index b71f4cff7..fb17348e0 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -22,12 +22,11 @@ if ($klang) {
#- help KDE defaulting to the right charset
print lang::charset2kde_charset(lang::lang2charset($lang)), "\n";
} else {
- my ($lang, $langs) = lang::read('', $>);
+ my ($lang) = lang::read('', $>);
my $in = 'interactive'->vnew;
- if ($lang = any::selectLanguage($in, $lang, $langs)) {
+ if ($lang = any::selectLanguage($in, $lang)) {
lang::write('', $lang, $>);
- lang::write_langs('', $langs) if $langs;
if ($>) {
if (my $wm = any::running_window_manager()) {
$in->ask_okcancel('', _("The change is done, but to be effective you must logout"), 1)