diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
| commit | a857623081234fa17d9f6447c995f4635b5f7672 (patch) | |
| tree | d5527a07fd5f3465f4de34cfee0d871eac2dba15 /perl-install/any.pm | |
| parent | 2bcf257104b6572bf0b940b1f06970588f8a1bad (diff) | |
| download | drakx-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.pm | 6 |
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 { |