summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-09-02 21:21:30 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-09-02 21:21:30 +0000
commit59b5d5eae61ca77a65a97a3a836dbc126aa7a52b (patch)
treeb8f8b249d7a2bdabe5afc934557b6539edb424f0 /perl-install/network
parent844cdb8f6f54e70d8582df9ab84fbe07193bb5a1 (diff)
downloaddrakx-backup-do-not-use-59b5d5eae61ca77a65a97a3a836dbc126aa7a52b.tar
drakx-backup-do-not-use-59b5d5eae61ca77a65a97a3a836dbc126aa7a52b.tar.gz
drakx-backup-do-not-use-59b5d5eae61ca77a65a97a3a836dbc126aa7a52b.tar.bz2
drakx-backup-do-not-use-59b5d5eae61ca77a65a97a3a836dbc126aa7a52b.tar.xz
drakx-backup-do-not-use-59b5d5eae61ca77a65a97a3a836dbc126aa7a52b.zip
- fix previous behavior in Expert mode... (100% lazy loop free this time)
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/ethernet.pm3
-rw-r--r--perl-install/network/network.pm10
2 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 2411f5cbc..e39e6dafa 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -209,7 +209,8 @@ such as ``mybox.mylab.myco.com''."),
} else {
configureNetworkNet($in, $netc, $last ||= {}, @l) or goto configureNetwork_step_1;
}
- miscellaneousNetwork($in);
+ miscellaneousNetwork($in) or goto configureNetwork_step_1;
+ 1;
}
1;
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 8714f83c7..9121c1bd1 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -306,7 +306,7 @@ notation (for example, 1.2.3.4).");
my $onboot = 1;
my @fields = qw(IPADDR NETMASK);
$::isStandalone or $in->set_help('configureNetworkIP');
- my $retvalue = $in->ask_from(_("Configuring network device %s", $intf->{DEVICE}),
+ $in->ask_from(_("Configuring network device %s", $intf->{DEVICE}),
(_("Configuring network device %s", $intf->{DEVICE}) . ($module ? _(" (driver %s)", $module) : '') ."\n\n") .
$text,
[ { label => _("IP address"), val => \$intf->{IPADDR}, disabled => sub { $pump } },
@@ -350,9 +350,8 @@ notation (for example, 1.2.3.4).");
focus_out => sub {
$intf->{NETMASK} ||= netmask($intf->{IPADDR}) unless $_[0]
}
- );
+ ) or return;
$intf->{ONBOOT} = bool2yesno($onboot);
- return $retvalue;
}
sub configureNetworkNet {
@@ -383,7 +382,7 @@ sub miscellaneousNetwork {
my $u = $::o->{miscellaneous} ||= {};
$::isInstall and $in->set_help('configureNetworkProxy');
$u->{track_network_id} = detect_devices::isLaptop();
- $::expert || $clicked and $in->ask_from('',
+ $::expert || $clicked and ($in->ask_from('',
_("Proxies configuration"),
[ { label => _("HTTP proxy"), val => \$u->{http_proxy} },
{ label => _("FTP proxy"), val => \$u->{ftp_proxy} },
@@ -394,7 +393,8 @@ sub miscellaneousNetwork {
$u->{ftp_proxy} =~ m,^($|ftp://), or $in->ask_warn('', _("Proxy should be ftp://...")), return 1,1;
0;
}
- ) or 1;
+ ) or return);
+ 1;
}
sub read_all_conf {