From 134b02fb46a9dff39fd085c98d701f2b2419aaa8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 25 Nov 2005 19:40:34 +0000 Subject: (real_main) once ISP DB is loaded, do not bother reload it --- perl-install/network/netconnect.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 271e08d2e..74234c38e 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -549,7 +549,7 @@ Take a look at http://www.linmodems.org"), $countries{$country} ||= translate($country); join('', $countries{$country}, $_); } grep { !/.directory$/ } glob_("$p_db_path/$country/*"); - } map { s!$p_db_path/!!o; s!_! !g; $_ } glob_("$p_db_path/*"); + } map { s!$p_db_path/!!o; s!_! !g; $_ } glob_("$p_db_path/*") if !@isp; $old_provider = $provider; }, name => N("Select your provider:"), @@ -695,7 +695,7 @@ Take a look at http://www.linmodems.org"), { pre => sub { require network::adsl_consts; - %adsl_data = %network::adsl_consts::adsl_data; + %adsl_data = %network::adsl_consts::adsl_data if is_empty_hash_ref(\%adsl_data); $adsl_old_provider = $adsl_provider; if (!$adsl_provider) { require lang; -- cgit v1.2.1