summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-15 11:52:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-15 11:52:16 +0000
commite1d7615736f50845b091b942be81ac5fa926bb8e (patch)
tree678d1c3f9f7dd4de4a253bd63a072503a6ec647b /perl-install/install_steps_interactive.pm
parent0b2831ac633871cb0bde3f3a1fbb276ec86746bf (diff)
downloaddrakx-backup-do-not-use-e1d7615736f50845b091b942be81ac5fa926bb8e.tar
drakx-backup-do-not-use-e1d7615736f50845b091b942be81ac5fa926bb8e.tar.gz
drakx-backup-do-not-use-e1d7615736f50845b091b942be81ac5fa926bb8e.tar.bz2
drakx-backup-do-not-use-e1d7615736f50845b091b942be81ac5fa926bb8e.tar.xz
drakx-backup-do-not-use-e1d7615736f50845b091b942be81ac5fa926bb8e.zip
- special bootstrap partition warning for IBM mac_generation
- no "OldWorld or Unknown machine" for IBM mac_generation
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm45
1 files changed, 26 insertions, 19 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e3c4bbf87..b26158a8d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -281,24 +281,31 @@ sub ask_mntpoint_s { #- }{}
sub doPartitionDisks {
my ($o) = @_;
- if (arch() =~ /ppc/ && detect_devices::get_mac_generation() =~ /NewWorld/) { #- need to make bootstrap part if NewWorld machine - thx Pixel ;^)
- if (defined $partition_table::mac::bootstrap_part) {
- #- don't do anything if we've got the bootstrap setup
- #- otherwise, go ahead and create one somewhere in the drive free space
- } else {
- undef = $partition_table::mac::freepart; #- please "perl -w"
- my $freepart = $partition_table::mac::freepart;
- if ($freepart && $freepart->{size} >= 1) {
- log::l("creating bootstrap partition on drive /dev/$freepart->{hd}{device}, block $freepart->{start}");
- $partition_table::mac::bootstrap_part = $freepart->{part};
- log::l("bootstrap now at $partition_table::mac::bootstrap_part");
- my $p = { start => $freepart->{start}, size => 1 << 11, mntpoint => '' };
- fs::type::set_pt_type($p, 0x401);
- fsedit::add($freepart->{hd}, $p, $o->{all_hds}, { force => 1, primaryOrExtended => 'Primary' });
- $new_bootstrap = 1;
+ if (arch() =~ /ppc/) {
+ my $generation = detect_devices::get_mac_generation();
+ if ($generation =~ /NewWorld/) {
+ #- mac partition table
+ if (defined $partition_table::mac::bootstrap_part) {
+ #- don't do anything if we've got the bootstrap setup
+ #- otherwise, go ahead and create one somewhere in the drive free space
} else {
- $o->ask_warn('', N("No free space for 1MB bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake"));
+ my $freepart = $partition_table::mac::freepart;
+ if ($freepart && $freepart->{size} >= 1) {
+ log::l("creating bootstrap partition on drive /dev/$freepart->{hd}{device}, block $freepart->{start}");
+ $partition_table::mac::bootstrap_part = $freepart->{part};
+ log::l("bootstrap now at $partition_table::mac::bootstrap_part");
+ my $p = { start => $freepart->{start}, size => 1 << 11, mntpoint => '' };
+ fs::type::set_pt_type($p, 0x401);
+ fsedit::add($freepart->{hd}, $p, $o->{all_hds}, { force => 1, primaryOrExtended => 'Primary' });
+ $new_bootstrap = 1;
+
+ } else {
+ $o->ask_warn('', N("No free space for 1MB bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake"));
+ }
}
+ } elsif ($generation =~ /IBM/) {
+ #- dos partition table
+ $o->ask_warn('', N("You'll need to create a PPC PReP Boot bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake"));
}
}
@@ -1262,9 +1269,9 @@ sub setupBootloaderBefore {
sub setupBootloader {
my ($o, $ent_number) = @_;
if (arch() =~ /ppc/) {
- my $machtype = detect_devices::get_mac_generation();
- if ($machtype !~ /NewWorld/) {
- $o->ask_warn('', N("You appear to have an OldWorld or Unknown\n machine, the yaboot bootloader will not work for you.\nThe install will continue, but you'll\n need to use BootX or some other means to boot your machine"));
+ if (detect_devices::get_mac_generation() !~ /NewWorld/ &&
+ detect_devices::get_mac_model() !~ /IBM/) {
+ $o->ask_warn('', N("You appear to have an OldWorld or Unknown machine, the yaboot bootloader will not work for you. The install will continue, but you'll need to use BootX or some other means to boot your machine. The kernel argument for the root fs is: root=%s", '/dev/' . fs::get::root_($o->{fstab})->{device}));
log::l("OldWorld or Unknown Machine - no yaboot setup");
return;
}