From c1e0b354cf6321a8dbae81a8cb18811ae72eede9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Feb 2002 13:12:31 +0000
Subject: restrict the langs displayed to non utf8 during install

---
 perl-install/lang.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index ea461793c..52c6c968d 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -431,7 +431,15 @@ my %lang2country = (
 #- Functions
 #-######################################################################################
 
-sub list { @languages }
+sub list { 
+    my ($exclude_non_necessary_utf8) = @_;
+    if ($exclude_non_necessary_utf8) {
+	my %LANGs_non_utf8 = map { lang2LANG($_) => 1 } grep { !/UTF-8/ } @languages;
+	grep { !/UTF-8/ || !$LANGs_non_utf8{lang2LANG($_)} } @languages;
+    } else {
+	@languages;
+    }
+}
 sub lang2text     { exists $languages{$_[0]} && $languages{$_[0]}[0] }
 sub lang2charset  { exists $languages{$_[0]} && $languages{$_[0]}[1] }
 sub lang2LANG     { exists $languages{$_[0]} && $languages{$_[0]}[2] }
-- 
cgit v1.2.1