From e1cc7c5a066da1237081fd15c228bff504aa60c3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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