summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-03 16:16:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-03 16:16:48 +0000
commite9dbe54ed4f656c59e7a0c0a914bc427e8d739e2 (patch)
tree73caec78b928343196a8310b960eb5a819c7f08a /perl-install/install_steps_interactive.pm
parentb5b5d539112817788a0321f9ce444547a9c77f75 (diff)
downloaddrakx-e9dbe54ed4f656c59e7a0c0a914bc427e8d739e2.tar
drakx-e9dbe54ed4f656c59e7a0c0a914bc427e8d739e2.tar.gz
drakx-e9dbe54ed4f656c59e7a0c0a914bc427e8d739e2.tar.bz2
drakx-e9dbe54ed4f656c59e7a0c0a914bc427e8d739e2.tar.xz
drakx-e9dbe54ed4f656c59e7a0c0a914bc427e8d739e2.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d170dd31b..dadbcec8b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1124,7 +1124,7 @@ _("Loading module %s failed.
Do you want to try again with other parameters?", $l), 1) or return;
goto ASK;
}
- $l, $m;
+ $l;
}
#------------------------------------------------------------------------------
@@ -1153,7 +1153,7 @@ sub setup_thiskind {
}
while (1) {
my $msg = @l ?
- [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type),
+ [ _("Found %s %s interfaces", join(", ", @l), $type),
_("Do you have another one?") ] :
_("Do you have any %s interfaces?", $type);
@@ -1163,8 +1163,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") {
- my @r = $o->load_module($type) or return;
- push @l, \@r;
+ push @l, $o->load_module($type) || return;
} else {
#-eval { commands::modprobe("isapnp") };
require pci_probing::main;