From 7734dfba7ab665c81346a3c10144058e024eb21c Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sun, 18 May 2008 19:53:36 +0000 Subject: do not override already selected provider --- lib/network/connection.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/network/connection.pm') diff --git a/lib/network/connection.pm b/lib/network/connection.pm index 6efbe1b..e2ab8fe 100644 --- a/lib/network/connection.pm +++ b/lib/network/connection.pm @@ -164,7 +164,7 @@ sub guess_provider_settings { my @providers_data = $self->get_providers; my $locale_country = lang::c2name(ref($::o) && $::o->{locale}{country} || lang::read()->{country}); my $separator = $providers_data[1]; - $self->{provider_name} = find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]}); + $self->{provider_name} ||= find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]}); } sub set_provider { -- cgit v1.2.1