summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-04 10:05:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-04 10:05:17 +0000
commite8b1daa15349709fc86e8177063d1261f63ab138 (patch)
treed5b29dd91db2aaef0e6f996fbc445fab1c1296ed /perl-install
parent990b493c91047766fb21147bc3ce3713db080657 (diff)
downloaddrakx-backup-do-not-use-e8b1daa15349709fc86e8177063d1261f63ab138.tar
drakx-backup-do-not-use-e8b1daa15349709fc86e8177063d1261f63ab138.tar.gz
drakx-backup-do-not-use-e8b1daa15349709fc86e8177063d1261f63ab138.tar.bz2
drakx-backup-do-not-use-e8b1daa15349709fc86e8177063d1261f63ab138.tar.xz
drakx-backup-do-not-use-e8b1daa15349709fc86e8177063d1261f63ab138.zip
(setupBootloader__entries) fix typo (Andrea Celli)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm6
1 files changed, 5 insertions, 1 deletions
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.