diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-16 17:55:18 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-16 17:55:18 +0000 |
| commit | 7655aa2aeafdae523e599410ee0e6171532088c2 (patch) | |
| tree | 27c68438572b9b1cd21a01ce6e9a0289aa175784 | |
| parent | 1d829875363f54dbdf048380c84e771491296ea3 (diff) | |
| download | drakx-7655aa2aeafdae523e599410ee0e6171532088c2.tar drakx-7655aa2aeafdae523e599410ee0e6171532088c2.tar.gz drakx-7655aa2aeafdae523e599410ee0e6171532088c2.tar.bz2 drakx-7655aa2aeafdae523e599410ee0e6171532088c2.tar.xz drakx-7655aa2aeafdae523e599410ee0e6171532088c2.zip | |
clean $o->{locale}{langs}
| -rw-r--r-- | perl-install/any.pm | 1 |
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); |