diff options
| -rw-r--r-- | perl-install/network/ethernet.pm | 1 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 1 |
2 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 4dd7dfaca..fc53e28a5 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -13,7 +13,6 @@ use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(conf_network_card_backend); -# FIXME: unused code to merge in into wizard sub write_ether_conf { my ($in, $netcnx, $netc, $intf) = @_; configureNetwork2($in, $::prefix, $netc, $intf); diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 72ee7810d..8033b53a7 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -954,6 +954,7 @@ I cannot set up this connection type.")), return; static_hostname => { pre => sub { + network::ethernet::write_ether_conf($in, $netcnx, $netc, $intf) if $netcnx->{type} = 'lan'; if ($ethntf->{IPADDR}) { $netc->{dnsServer} ||= dns($ethntf->{IPADDR}); $gateway_ex = gateway($ethntf->{IPADDR}); |