summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e9e7a2578..275df04e2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -141,14 +141,16 @@ sub selectInstallClass {
$_->{release} .= " ($_->{part}{device})" foreach @l;
}
- my $p = $o->ask_from_listf_raw({ title => N("Install/Upgrade"),
- messages => N("Is this an install or an upgrade?"),
- interactive_help_id => 'selectInstallClass',
- },
- sub {
- ref($_[0]) ? N("Upgrade %s", $_[0]{release}) :
- translate($_[0]);
- }, [ @l, N_("Install") ]);
+ my $p;
+ $o->ask_from_({ title => N("Install/Upgrade"),
+ messages => N("Is this an install or an upgrade?"),
+ interactive_help_id => 'selectInstallClass',
+ },
+ [ { val => \$p,
+ list => [ @l, N_("Install") ],
+ type => 'list',
+ format => sub { ref($_[0]) ? N("Upgrade %s", $_[0]{release}) : translate($_[0]) }
+ } ]);
if (ref $p) {
my $part = $p->{part};
log::l("choosing to upgrade partition $part->{device}");