diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules/interactive.pm | 5 |
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; |