summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-22 22:17:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-22 22:17:23 +0000
commit68f8fc470b9d97ab209ab6d106a2efd7b4df83dd (patch)
tree0f3bbb59c7d14224960f776a80d3fbc12ac9750f /perl-install/standalone
parent4215d770341c72ec139ed5d5332d7406c08cde16 (diff)
downloaddrakx-backup-do-not-use-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar
drakx-backup-do-not-use-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.gz
drakx-backup-do-not-use-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.bz2
drakx-backup-do-not-use-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.xz
drakx-backup-do-not-use-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.zip
fix yves's code duplication of lilo_choice (use $::lilo_choice in bootlook)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakboot23
1 files changed, 14 insertions, 9 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index dd0eb6403..eb8150b2c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -22,9 +22,17 @@ $::expert = /-expert/;
my $in = 'interactive'->vnew('su', 'bootloader');
-require 'bootlook.pm' if $in->isa('interactive_gtk');
-lilo_choice();
+$::lilo_choice = \&lilo_choice;
+if ($in->isa('interactive_gtk')) {
+ require 'bootlook.pm';
+} else {
+ lilo_choice();
+}
+
+!$::isEmbedded and $in->exit(0);
+kill(USR1, $::CCPID);
+goto ask;
sub lilo_choice
{
@@ -33,13 +41,14 @@ sub lilo_choice
$bootloader->{methods} = { lilo => 1, grub => !!/grub/i };
my ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
- my $fstab = [ fsedit::get_all_fstab(@$all_hds) ];
+ my $fstab = [ fsedit::get_all_fstab($all_hds) ];
fs::merge_info_from_fstab($fstab);
-
+
$::expert=1;
ask:
- any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit(0);
+ local $::isEmbedded = 0;
+ any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or return;
eval { bootloader::install('', $bootloader, $fstab, $all_hds->{hds}) };
if ($@) {
@@ -50,7 +59,3 @@ sub lilo_choice
goto ask;
}
}
- !$::isEmbedded and $in->exit(0);
- kill(USR1, $::CCPID);
- goto ask;
-