diff options
| -rw-r--r-- | perl-install/network/ethernet.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 21cfc6708..bb08738ae 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -9,6 +9,8 @@ use common; use run_program; use network::tools; +our @dhcp_clients = qw(dhcp-client dhcpcd pump dhcpxd); + sub write_ether_conf { my ($in, $modules_conf, $netcnx, $netc, $intf) = @_; configureNetwork2($in, $modules_conf, $::prefix, $netc, $intf); diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 74f04ccef..1e33ce282 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1027,7 +1027,7 @@ notation (for example, 1.2.3.4).")), ), if_($auto_ip, { label => N("DHCP client"), val => \$netc->{dhcp_client}, - list => [ qw(dhcp-client dhcpcd pump dhcpxd) ], advanced => 1 }, + list => \@network::ethernet::dhcp_clients, advanced => 1 }, { label => N("DHCP timeout (in seconds)"), val => \$ethntf->{DHCP_TIMEOUT}, advanced => 1 }, { text => N("Get DNS servers from DHCP"), val => \$peerdns, type => "bool", advanced => 1 }, { text => N("Get YP server from DHCP"), val => \$peeryp, type => "bool", advanced => 1 }, |