summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {