summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-08-22 18:28:18 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-08-22 18:28:18 +0000
commit6eefaf34f4876bfd9f4326f230533cfb772aeb70 (patch)
tree5f664cce225c97271687103574c7f67acd98744b
parent9c3ad5861dc37b0a0896fe27723cc35bcfb70c18 (diff)
downloaddrakx-6eefaf34f4876bfd9f4326f230533cfb772aeb70.tar
drakx-6eefaf34f4876bfd9f4326f230533cfb772aeb70.tar.gz
drakx-6eefaf34f4876bfd9f4326f230533cfb772aeb70.tar.bz2
drakx-6eefaf34f4876bfd9f4326f230533cfb772aeb70.tar.xz
drakx-6eefaf34f4876bfd9f4326f230533cfb772aeb70.zip
fix 'previous' button strange behavior
-rw-r--r--perl-install/network/network.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 5d1e1c784..0cd0189a4 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');
- $in->ask_from(_("Configuring network device %s", $intf->{DEVICE}),
+ my $retvalue = $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 } },
@@ -352,6 +352,7 @@ notation (for example, 1.2.3.4).");
}
);
$intf->{ONBOOT} = bool2yesno($onboot);
+ return $retvalue;
}
sub configureNetworkNet {