summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/localedrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-27 06:57:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-27 06:57:20 +0000
commit1d301b9583c17fddb21fea96adba305d354479e5 (patch)
treee32d8e90eaaa66e10952c39a99a7b6a06c576398 /perl-install/standalone/localedrake
parentbc454df43584bf596b467a6d55e59f65cf3063a4 (diff)
downloaddrakx-1d301b9583c17fddb21fea96adba305d354479e5.tar
drakx-1d301b9583c17fddb21fea96adba305d354479e5.tar.gz
drakx-1d301b9583c17fddb21fea96adba305d354479e5.tar.bz2
drakx-1d301b9583c17fddb21fea96adba305d354479e5.tar.xz
drakx-1d301b9583c17fddb21fea96adba305d354479e5.zip
inline select_language()
Diffstat (limited to 'perl-install/standalone/localedrake')
-rw-r--r--perl-install/standalone/localedrake5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index f700c8fbc..2e5c0d711 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -34,9 +34,6 @@ if (defined $klang) {
my $locale = lang::read($>);
my $in = 'interactive'->vnew;
-sub select_language() {
- $locale->{lang} = any::selectLanguage($in, $locale->{lang});
-}
sub select_country() {
any::selectCountry($in, $locale);
}
@@ -45,7 +42,7 @@ eval {
local $::isWizard = 1;
local $::Wizard_no_previous = 1;
language:
- select_language() or goto the_end;
+ $locale->{lang} = any::selectLanguage($in, $locale->{lang}) or goto the_end;
undef $::Wizard_no_previous;
select_country() or goto language;
};