From e1cc7c5a066da1237081fd15c228bff504aa60c3 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 17 Aug 2004 10:16:29 +0000 Subject: lang::list() is unused, dropping it --- perl-install/lang.pm | 9 --------- 1 file changed, 9 deletions(-) (limited to 'perl-install') 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; -- cgit v1.2.1