diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 8e68dcad8..1999fbec5 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -773,7 +773,8 @@ If you don't know, choose 'use pppoe'"), return 'lan_intf'; } network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name); - $netc->{$_} = $adsl_type eq 'pppoe' ? $ntf_name : 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE'; + $netc->{NET_DEVICE} = $adsl_type eq 'pppoe' ? $ntf_name : 'ppp0'; + $netc->{NET_INTERFACE} = 'ppp0'; return 'adsl_account'; }, }, |