From e8b1daa15349709fc86e8177063d1261f63ab138 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 4 Jun 2004 10:05:17 +0000 Subject: (setupBootloader__entries) fix typo (Andrea Celli) --- perl-install/any.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index fcead3195..1210abf95 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -90,15 +90,19 @@ sub setupBootloader { require bootloader; general: { + print "STEP 1\n"; local $::Wizard_no_previous = 1 if $::isStandalone; setupBootloader__general($in, $b, $all_hds, $fstab, $security) or return 0; } + print "STEP 2\n"; setupBootloader__boot_bios_drive($in, $b, $hds) or goto general; { + print "STEP 3\n"; local $::Wizard_finished = 1 if $::isStandalone; setupBootloader__entries($in, $b, $all_hds, $fstab) or goto general; } + print "STEP 4\n"; #- somewhere should bootloader really installed ? $::isStandalone and my $_w = $in->wait_message(N("Please wait"), N("Bootloader installation in progress")); @@ -353,7 +357,7 @@ sub setupBootloader__entries { my ($e, $prefix); if ($in->ask_from_list_('', N("Which type of entry do you want to add?"), [ N_("Linux"), arch() =~ /sparc/ ? N_("Other OS (SunOS...)") : arch() =~ /ppc/ ? - N_("Other OS (MacOS...)") : N_("Other OS (windows...)") ] + N_("Other OS (MacOS...)") : N_("Other OS (Windows...)") ] ) eq "Linux") { $e = { type => 'image', root => '/dev/' . fsedit::get_root($fstab)->{device}, #- assume a good default. -- cgit v1.2.1