From 53b5abee1210a87a0004573a9dd7d7e3dfbe05ea Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 22 Jan 2001 12:19:45 +0000 Subject: $::beginner is deprecated, replaced by !$::expert --- perl-install/network.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network.pm') diff --git a/perl-install/network.pm b/perl-install/network.pm index 6ed925406..de30096e2 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -254,7 +254,7 @@ sub configureNetwork { any::setup_thiskind($in, 'net', !$::expert, 1); my @l = detect_devices::getNet() or die _("no network card found"); - my $last; foreach ($::beginner ? $l[0] : @l) { + my $last; foreach ($::expert ? @l : $l[0]) { my $intf2 = findIntf($intf ||= {}, $_); add2hash($intf2, $last); add2hash($intf2, { NETMASK => '255.255.255.0' }); @@ -359,7 +359,7 @@ sub miscellaneousNetwork { my ($in, $clicked) = @_; my $u = $::o->{miscellaneous} ||= {}; $::isInstall and $in->set_help('configureNetworkProxy'); - !$::beginner || $clicked and $in->ask_from_entries_refH('', + $::expert || $clicked and $in->ask_from_entries_refH('', _("Proxies configuration"), [ { label => _("HTTP proxy"), val => \$u->{http_proxy} }, { label => _("FTP proxy"), val => \$u->{ftp_proxy} }, -- cgit v1.2.1