From ce235aeb8dcbb0ef6934602602c78b915c97574c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 05:20:51 +0000
Subject: selectCountry doesn't really need a $o, a $in is enough

---
 perl-install/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index f49318924..bc15a0da5 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -669,7 +669,7 @@ when your installation is complete and you restart your system.")),
 }
 
 sub selectCountry {
-    my ($o, $locale) = @_;
+    my ($in, $locale) = @_;
 
     my $country = $locale->{country};
     my @countries = lang::list_countries(exclude_non_installed => !$::isInstall);
@@ -682,7 +682,7 @@ sub selectCountry {
 
     my ($other, $ext_country);
     member($country, @best) or ($ext_country, $country) = ($country, $ext_country);
-    $o->ask_from_(
+    $in->ask_from_(
 		  { title => N("Country / Region"), 
 		    messages => N("Please choose your country."),
 		    interactive_help_id => 'selectCountry',
-- 
cgit v1.2.1