summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/netconnect.pm4
1 files changed, 2 insertions, 2 deletions
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;