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.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c1951a80c..ab4458997 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -130,14 +130,14 @@ sub selectInstallClass {
if (my @l = install_any::find_root_parts($o->{fstab}, $o->{prefix})) {
log::l("proposing to upgrade partitions " . join(" ", map { $_->{device} } @l));
- $p = $o->ask_from_listf(N("Install/Upgrade"),
- N("Is this an install or an upgrade?"),
- sub {
- ref $_[0] ? (@l > 1 ?
- N("Upgrade partition %s", partition_table::description($_[0])) :
- N("Upgrade")) :
- translate($_[0]);
- }, [ @l, N_("Install") ]);
+ my $p = $o->ask_from_listf(N("Install/Upgrade"),
+ N("Is this an install or an upgrade?"),
+ sub {
+ ref $_[0] ? (@l > 1 ?
+ N("Upgrade partition %s", partition_table::description($_[0])) :
+ N("Upgrade")) :
+ translate($_[0]);
+ }, [ @l, N_("Install") ]);
if (ref $p) {
log::l("choosing to upgrade partition $p->{device}");
install_any::use_root_part($o->{all_hds}, $p, $o->{prefix});