summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/ethernet.pm2
-rw-r--r--perl-install/network/netconnect.pm2
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 },