From 9d42e52fa720c98850b2c6c58db7b3fe1b17e6dc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 May 2000 10:39:25 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 1e52a1147..e8ec6c4fd 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -440,8 +440,7 @@ sub configureNetwork($) { #- my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain...")); #- network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf}); #- } - $last->{BOOTPROTO} =~ /^(dhcp|bootp)$/ || - $o->configureNetworkNet($o->{netc}, $last ||= {}, @l) or return; + $o->configureNetworkNet($o->{netc}, $last ||= {}, @l) if $last->{BOOTPROTO} !~ /^(dhcp|bootp)$/; } install_steps::configureNetwork($o); @@ -1180,7 +1179,7 @@ sub setup_thiskind { $r = $o->ask_from_list_('', $msg, $opt, "No") unless $at_least_one && @l == 0; if ($r eq "No") { return } elsif ($r eq "Yes") { - push @l, $o->load_module($type) || return; + push @l, $o->load_module($type) || next; } else { #-eval { commands::modprobe("isapnp") }; require pci_probing::main; -- cgit v1.2.1