summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm15
1 files changed, 8 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 126673c22..2a37a4f0d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -10,6 +10,7 @@ use vars qw(@ISA);
use common qw(:common);
use partition_table qw(:types);
use install_steps;
+use install_any;
use detect_devices;
use network;
use modules;
@@ -137,19 +138,19 @@ sub configureNetwork($) {
$o->{netc}{NETWORKING} = "false";
} elsif ($r !~ /^Keep/) {
my @l = network::getNet() or return die _("no network card found");
- @l = ($l[0]) unless $::expert; # keep only one
- my $last; foreach (@l) {
+ my $last; foreach ($::expert ? @l : $l[0]) {
my $intf = network::findIntf($o->{intf}, $_);
add2hash($intf, $last);
+ add2hash($intf, { NETMASK => '255.255.255.0' });
$o->configureNetworkIntf($intf);
$last = $intf;
}
- {
- my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain..."));
- network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf});
- }
- $o->configureNetworkNet($o->{netc} ||= {});
+# {
+# my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain..."));
+# network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf});
+# }
+ $o->configureNetworkNet($o->{netc} ||= {}, @l);
}
$o->SUPER::configureNetwork;
}