summaryrefslogtreecommitdiffstats
path: root/perl-install/modules/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-23 12:43:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-23 12:43:45 +0000
commitdfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c (patch)
treece4f04831955922d221aa1a18ed189851cef70dc /perl-install/modules/interactive.pm
parent40471cedde0ea37f1a8b1816546ae36b4e9ada71 (diff)
downloaddrakx-backup-do-not-use-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar
drakx-backup-do-not-use-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.gz
drakx-backup-do-not-use-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.bz2
drakx-backup-do-not-use-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.tar.xz
drakx-backup-do-not-use-dfc9f2bfee33fb1e1a9b5333ee9f53c0f1da136c.zip
(load_category__prompt_for_more): cleanup, propose "See hardware info" in any case
Diffstat (limited to 'perl-install/modules/interactive.pm')
-rw-r--r--perl-install/modules/interactive.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/modules/interactive.pm b/perl-install/modules/interactive.pm
index f8da8b561..add2f5ccd 100644
--- a/perl-install/modules/interactive.pm
+++ b/perl-install/modules/interactive.pm
@@ -58,9 +58,8 @@ sub load_category__prompt_for_more {
N("Do you have another one?") ] :
N("Do you have any %s interfaces?", $msg_type);
- my $opt = [ N_("Yes"), N_("No") ];
- push @$opt, N_("See hardware info") if $::expert;
- my $r = $in->ask_from_list_('', $msg, $opt, "No") or return;
+ my $r = 'No';
+ $in->ask_from('', $msg, [ { list => [ N_("Yes"), N_("No"), N_("See hardware info") ], val => \$r, type => 'list' } ]);
if ($r eq "No") { return @l }
if ($r eq "Yes") {
push @l, load_category__prompt($in, $category) || next;