From 404e04a2987baceaac76c4d940eeb43cfca942f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 25 Nov 2002 21:56:11 +0000
Subject: - $up was my-ed inside the if-then block though it was used outside
 the block (hint: buggy code) - my @country as it should be

---
 perl-install/network/tools.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/tools.pm')

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 53dc1b5ff..07d8e5d6e 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -3,7 +3,7 @@ package network::tools;
 use common;
 use run_program;
 use c;
-use vars qw(@ISA @EXPORT);
+use vars qw(@ISA @EXPORT @EXPORT_OK);
 use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file);
 use MDK::Common::System qw(getVarsFromSh);
 
@@ -37,11 +37,11 @@ sub write_secret_backend {
 sub ask_connect_now {
     my ($type) = @_;
     $::Wizard_no_previous = 1;
+    my $up;
     #- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1;
     if ($in->ask_yesorno(N("Internet configuration"),
 			 N("Do you want to try to connect to the Internet now?")
 			)) {
-	my $up;
 	{
 	    my $w = $in->wait_message('', N("Testing your connection..."), 1);
 	    connect_backend();
@@ -118,6 +118,7 @@ sub detect_timezone {
 		       'Europe/London' => N("United Kingdom") 
 		      );
     my %tm_parse = MDK::Common::System::getVarsFromSh('/etc/sysconfig/clock');
+    my @country;
     foreach (keys %tmz2country) {
 	if ($_ eq $tm_parse{ZONE}) {
 	    unshift @country, $tmz2country{$_};
-- 
cgit v1.2.1