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/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a2a81e502..e19f40bfe 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -830,7 +830,7 @@ sub selectLanguage {
 	  },
 	},
 	[ { val => \$lang, separator => '|', 
-	    format => \&lang::lang2text, list => [ lang::list() ] },
+	    format => \&lang::lang2text, list => [ lang::list($::isInstall) ] },
 	    if_($langs_, (map {;
 	       { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} },
 		 text => $_->[1], advanced => 1,
-- 
cgit v1.2.1