From 7645f7d22cb489ded87dfbe8a2010426c7f19e5a Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 29 Mar 2005 15:25:43 +0000 Subject: fix NET_INTERFACE for sagem modems not using pppoa --- perl-install/network/netconnect.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index a27211444..f47ba953f 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1098,7 +1098,9 @@ notation (for example, 1.2.3.4).")), $ethntf->{PEERNTPD} = bool2yesno($peerntpd); $ethntf->{MII_NOT_SUPPORTED} = bool2yesno(!$hotplug); $ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR}; - $netc->{$_} = $ethntf->{DEVICE} foreach qw(NET_DEVICE NET_INTERFACE); + #- FIXME: special case for sagem where $ethntf->{DEVICE} is the result of a command + #- we can't always use $ntf_name because of some USB DSL modems + $netc->{$_} = $ntf_name eq "sagem" ? "sagem" : $ethntf->{DEVICE} foreach qw(NET_DEVICE NET_INTERFACE); if ($auto_ip) { #- delete gateway settings if gateway device is invalid or if reconfiguring the gateway interface to dhcp $delete_gateway_settings->($ntf_name); -- cgit v1.2.1