From dabe48195cab109ba9cb2bd179500ef481d53348 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 6 Jan 2001 17:07:15 +0000 Subject: ask_from_entries_refH parameter format has changed so change all accesses to it. --- perl-install/network.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/network.pm') 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; } -- cgit v1.2.1