summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_empty.pm
Commit message (Expand)AuthorAgeFilesLines
* handle MBR containing the same character (0 or "l")Pascal Rigaux2002-02-231-4/+2
* move to MDK::Common, bool->to_boolPascal Rigaux2001-07-241-1/+1
* empty partition table as assumed only if the MBR is really composed of only n...Francois Pons2000-10-131-1/+1
* no_commentPascal Rigaux2000-09-141-1/+1
* no_commentPascal Rigaux2000-07-241-0/+38
r>downloaddrakx-7885389849b5bfb61e96fa5b317c420d14ddb17c.tar
drakx-7885389849b5bfb61e96fa5b317c420d14ddb17c.tar.gz
drakx-7885389849b5bfb61e96fa5b317c420d14ddb17c.tar.bz2
drakx-7885389849b5bfb61e96fa5b317c420d14ddb17c.tar.xz
drakx-7885389849b5bfb61e96fa5b317c420d14ddb17c.zip
splash mode needs reading bootloader config too
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakboot6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 75056571f..a7b253017 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -45,13 +45,17 @@ my $fstab = [ fs::get::fstab($all_hds) ];
my $cmdline = cat_('/proc/cmdline');
my $bootloader;
-if (!$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV) {
+my $is_bootloader_mode = !$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV;
+
+if ($is_bootloader_mode || any { /^--splash$/ } @ARGV) {
$bootloader = bootloader::read($all_hds);
if (!$bootloader) {
$in->ask_okcancel('', N("No bootloader found, creating a new configuration"), 0) or $in->exit;
any::setupBootloaderBeforeStandalone($in->do_pkgs, $bootloader ||= {}, $all_hds, $fstab);
}
+}
+if ($is_bootloader_mode) {
$::isWizard = 1;
eval { any::setupBootloaderUntilInstalled($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) };
die if $@ && $@ !~ /^wizcancel/;