diff options
| author | Stew Benedict <stewb@mandriva.org> | 2001-03-14 21:45:42 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2001-03-14 21:45:42 +0000 |
| commit | 75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5 (patch) | |
| tree | cc1990314a60d37bd1d3b12b0dcb29fcb5f99892 /perl-install/install_steps_interactive.pm | |
| parent | 5889d46fd238fbf99b0e7c52360466e7b9f086ce (diff) | |
| download | drakx-backup-do-not-use-75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5.tar drakx-backup-do-not-use-75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5.tar.gz drakx-backup-do-not-use-75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5.tar.bz2 drakx-backup-do-not-use-75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5.tar.xz drakx-backup-do-not-use-75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5.zip | |
fix bootstrap partition creation/tracking
allow Xpmac to launch in 2 modes based on cmdline
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index c5eed7281..a8fe951b7 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -331,7 +331,10 @@ Continue at your own risk!")); if (defined $partition_table_mac::freepart_start && $partition_table_mac::freepart_size >= 1) { my ($hd) = $partition_table_mac::freepart_device; log::l("creating bootstrap partition on drive /dev/$hd->{device}, block $partition_table_mac::freepart_start"); + $partition_table_mac::bootstrap_part = $partition_table_mac::freepart_part; + log::l("bootstrap now at $partition_table_mac::bootstrap_part"); fsedit::add($hd, { start => $partition_table_mac::freepart_start, size => 1 << 11, type => 0x401, mntpoint => '' }, $o->{hds}, { force => 1, primaryOrExtended => 'Primary' }); + run_program::run("hformat", $partition_table_mac::bootstrap_part) or die "hformat of $partition_table_mac::bootstrap_part failed"; } else { die "no free space for 1MB bootstrap"; } @@ -958,7 +961,16 @@ try to force installation even if that destroys the first partition?")); grep { !/^Warning:/ } cat_("$o->{prefix}/tmp/.error") ]); unlink "$o->{prefix}/tmp/.error"; die "already displayed"; - } + } elsif (arch() =~ /ppc/) { + open(FILE, "$o->{prefix}/tmp/of_boot_dev") || die "Can't open $o->{prefix}/tmp/of_boot_dev"; + my $of_boot = ""; + local $_ = ""; + while (<FILE>){ + $of_boot = $_; + } + unlink "$o->{prefix}/tmp/.error"; + $o->ask_warn('', _("You will need to change your Open Firmware boot-device to\n enable the bootloader. Hold down Command-Option-O-F\n at reboot and enter:\n setenv boot-device $of_boot,\\ofboot.b\n Then type: shut-down\nAt your next boot you should see the bootloader prompt.")); + } } } |