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