summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-16 17:55:18 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-16 17:55:18 +0000
commit7655aa2aeafdae523e599410ee0e6171532088c2 (patch)
tree27c68438572b9b1cd21a01ce6e9a0289aa175784 /perl-install/any.pm
parent1d829875363f54dbdf048380c84e771491296ea3 (diff)
downloaddrakx-backup-do-not-use-7655aa2aeafdae523e599410ee0e6171532088c2.tar
drakx-backup-do-not-use-7655aa2aeafdae523e599410ee0e6171532088c2.tar.gz
drakx-backup-do-not-use-7655aa2aeafdae523e599410ee0e6171532088c2.tar.bz2
drakx-backup-do-not-use-7655aa2aeafdae523e599410ee0e6171532088c2.tar.xz
drakx-backup-do-not-use-7655aa2aeafdae523e599410ee0e6171532088c2.zip
clean $o->{locale}{langs}
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index bddd4b67a..d934fa84f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -644,6 +644,7 @@ when your installation is complete and you restart your system.")),
{ val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }))
]) or return;
$langs->{$listval2val->($lang)} = 1;
+ $langs->{$_} or delete $langs->{$_} foreach keys %$langs; #- clean hash
#- convert to the default locale for asked language
$listval2val->($lang);