diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-17 10:16:29 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-17 10:16:29 +0000 |
commit | e1cc7c5a066da1237081fd15c228bff504aa60c3 (patch) | |
tree | a4ba8f1ce401ef695bb5b1855b087b9d3c66dc8a | |
parent | 2c618f87c53335cdc09312b88a26d8f61935e8e9 (diff) | |
download | drakx-e1cc7c5a066da1237081fd15c228bff504aa60c3.tar drakx-e1cc7c5a066da1237081fd15c228bff504aa60c3.tar.gz drakx-e1cc7c5a066da1237081fd15c228bff504aa60c3.tar.bz2 drakx-e1cc7c5a066da1237081fd15c228bff504aa60c3.tar.xz drakx-e1cc7c5a066da1237081fd15c228bff504aa60c3.zip |
lang::list() is unused, dropping it
-rw-r--r-- | perl-install/lang.pm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 21ab7d993..09b2992cf 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -701,15 +701,6 @@ my @during_install__lang_having_their_LC_CTYPE = qw(ja ko ta); #- ------------------- -sub list { - my (%options) = @_; - my @l = list_langs(); - if ($options{exclude_non_installed_langs}) { - @l = grep { -e "/usr/share/locale/$_/LC_CTYPE" } @l; - } - @l; -} - sub l2console_font { my ($locale, $during_install) = @_; my $c = $charsets{l2charset($locale->{lang}) || return} or return; |