diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-27 06:57:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-27 06:57:20 +0000 |
| commit | 1d301b9583c17fddb21fea96adba305d354479e5 (patch) | |
| tree | e32d8e90eaaa66e10952c39a99a7b6a06c576398 /perl-install/standalone/localedrake | |
| parent | bc454df43584bf596b467a6d55e59f65cf3063a4 (diff) | |
| download | drakx-backup-do-not-use-1d301b9583c17fddb21fea96adba305d354479e5.tar drakx-backup-do-not-use-1d301b9583c17fddb21fea96adba305d354479e5.tar.gz drakx-backup-do-not-use-1d301b9583c17fddb21fea96adba305d354479e5.tar.bz2 drakx-backup-do-not-use-1d301b9583c17fddb21fea96adba305d354479e5.tar.xz drakx-backup-do-not-use-1d301b9583c17fddb21fea96adba305d354479e5.zip | |
inline select_language()
Diffstat (limited to 'perl-install/standalone/localedrake')
| -rw-r--r-- | perl-install/standalone/localedrake | 5 |
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; }; |