From 1d301b9583c17fddb21fea96adba305d354479e5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 27 Aug 2004 06:57:20 +0000
Subject: inline select_language()

---
 perl-install/standalone/localedrake | 5 +----
 1 file changed, 1 insertion(+), 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;
 };
-- 
cgit v1.2.1