summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-01 14:44:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-01 14:44:23 +0000
commita857623081234fa17d9f6447c995f4635b5f7672 (patch)
treed5527a07fd5f3465f4de34cfee0d871eac2dba15 /perl-install/any.pm
parent2bcf257104b6572bf0b940b1f06970588f8a1bad (diff)
downloaddrakx-a857623081234fa17d9f6447c995f4635b5f7672.tar
drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.gz
drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.bz2
drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.xz
drakx-a857623081234fa17d9f6447c995f4635b5f7672.zip
perl_checker
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 525ced9f5..4ee1c3ac7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -659,14 +659,14 @@ sub autologin {
}
sub selectLanguage {
- my ($in, $lang, $langs_) = @_;
+ my ($in, $lang, $o_langs_) = @_;
my $common = { messages => N("Please choose a language to use."),
title => 'language choice',
interactive_help_id => 'selectLanguage' };
if ($::isInstall) {
- my $langs = $langs_ || {};
+ my $langs = $o_langs_ || {};
my $using_images = $in->isa('interactive::gtk') && listlength(cat_('/proc/fb'));
#- to create the default value, use the first location for that value :/
@@ -691,7 +691,7 @@ when your installation is complete and you restart your system.")),
if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }),
format => sub { $1.lang::l2name($2) if $_[0] =~ /(.*\|)(.*)/ },
list => \@langs, sort => 0 },
- if_($langs_, if_($::isInstall,
+ if_($o_langs_, if_($::isInstall,
{ val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }),
{ val => \$langs->{all}, type => 'bool', text => N("All languages"), advanced => 1 },
map {