summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-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 e81b0d89c..7b327be6e 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -585,11 +585,11 @@ killall pppd
next => 'adsl_protocol',
post => sub {
$adsl_data = $adsl_data{$adsl_provider};
+ $adsl_protocol = $adsl_types{pppoa} if $ntf_name eq 'speedtouch';
if ($adsl_provider ne $adsl_old_provider) {
$netc->{$_} = $adsl_data->{$_} foreach qw(dnsServer2 dnsServer3 DOMAINNAME2 Encapsulation vpi vci);
- $adsl_protocol = $adsl_types{$adsl_data->{method}};
+ $adsl_protocol ||= $adsl_types{$adsl_data->{method}};
}
- $adsl_protocol = $adsl_types{pppoa} if $ntf_name eq 'speedtouch';
return 'adsl_protocol';
},
},