diff options
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm index f5fe364fb..6ed925406 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -345,10 +345,12 @@ _("Please enter your host name. Your host name should be a fully-qualified host name, such as ``mybox.mylab.myco.com''. You may also enter the IP address of the gateway if you have one"), - [ _("Host name") => \$netc->{HOSTNAME}, - _("DNS server") => \$netc->{dnsServer}, - _("Gateway") => \$netc->{GATEWAY}, - $::expert ? (_("Gateway device") => {val => \$netc->{GATEWAYDEV}, list => \@devices }) : (), + [ { label => _("Host name"), val => \$netc->{HOSTNAME} }, + { label => _("DNS server"), val => \$netc->{dnsServer} }, + { label => _("Gateway"), val => \$netc->{GATEWAY} }, + if_($::expert, + { label => _("Gateway device"), val => \$netc->{GATEWAYDEV}, list => \@devices }, + ), ], ) or return; } |