From 67bdac233a5b875c9c404a2cf8f990f949d221dc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Jan 2003 21:05:31 +0000 Subject: fix typos (thanks perl_checko!) --- perl-install/install_steps_interactive.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') 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}); -- cgit v1.2.1