summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/netconnect.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8c7ae8e1f..fb35a37c1 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -669,6 +669,13 @@ and copy the mgmt.o in /usr/share/speedtouch", 'http://prdownloads.sourceforge.n
adsl_protocol =>
{
+ pre => sub {
+ # preselect right protocol for ethernet though connections:
+ if (!exists $adsl_devices{$ntf_name}) {
+ $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name };
+ $adsl_type = $ethntf->{BOOTPROTO} || "dhcp";
+ }
+ },
name => N("Connect to the Internet") . "\n\n" .
N("The most common way to connect with adsl is pppoe.
Some connections use pptp, a few use dhcp.
@@ -684,7 +691,6 @@ If you don't know, choose 'use pppoe'"),
# process static/dhcp ethernet devices:
if (!exists $adsl_devices{$ntf_name} && member($adsl_type, qw(manual dhcp))) {
$auto_ip = $adsl_type eq 'dhcp';
- $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name };
$find_lan_module->();
return 'lan_intf';
}