summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-16 18:20:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-16 18:20:35 +0000
commit92cf36e56d9a3cbd3aeb4f611598c04945f7386e (patch)
tree2bf15577818d2744570774170aa0ba420ec26e34 /perl-install
parentcaedf35d1021e89a8c005d3239c821f2e55dc6dc (diff)
downloaddrakx-backup-do-not-use-92cf36e56d9a3cbd3aeb4f611598c04945f7386e.tar
drakx-backup-do-not-use-92cf36e56d9a3cbd3aeb4f611598c04945f7386e.tar.gz
drakx-backup-do-not-use-92cf36e56d9a3cbd3aeb4f611598c04945f7386e.tar.bz2
drakx-backup-do-not-use-92cf36e56d9a3cbd3aeb4f611598c04945f7386e.tar.xz
drakx-backup-do-not-use-92cf36e56d9a3cbd3aeb4f611598c04945f7386e.zip
fix cancel on scsi module loading
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 98755a944..8ea7cad80 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -613,6 +613,11 @@ sub setup_thiskind {
return @l if $auto && (@l || !$at_least_one);
}
@l = map { $_->{description} } @l;
+
+ if ($at_least_one && !@l) {
+ push @l, load_module($in, $type) || return;
+ }
+
while (1) {
(my $msg_type = $type) =~ s/\|.*//;
my $msg = @l ?
@@ -622,8 +627,7 @@ sub setup_thiskind {
my $opt = [ __("Yes"), __("No") ];
push @$opt, __("See hardware info") if $::expert;
- my $r = "Yes";
- $r = $in->ask_from_list_('', $msg, $opt, "No") || die 'already displayed' unless $at_least_one && @l == 0;
+ my $r = $in->ask_from_list_('', $msg, $opt, "No") or die 'already displayed';
if ($r eq "No") { return @l }
if ($r eq "Yes") {
push @l, load_module($in, $type) || next;