From 4239729f41a697b744609b24993e756ec48a1303 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Wed, 18 Jul 2001 15:54:47 +0000 Subject: roll back some changes from PPC beta - OldWorld vs NewWorld bootloader modem detection on ttyS0, new sound module in 2.4.4 --- perl-install/partition_table_mac.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'perl-install/partition_table_mac.pm') diff --git a/perl-install/partition_table_mac.pm b/perl-install/partition_table_mac.pm index 52486a776..cf8678f9c 100644 --- a/perl-install/partition_table_mac.pm +++ b/perl-install/partition_table_mac.pm @@ -147,8 +147,8 @@ sub read($$) { $freepart_part = "/dev/" . $hd->{device} . ($i+1); log::l("free apple partition found on drive /dev/$freepart_device->{device}, block $freepart_start, size $freepart_size"); } - next; - #$h{type} = 0x0; + $h{type} = 0x0; + $h{pName} = 'Extra'; } elsif ($h{pType} =~ /^Apple_HFS/i) { $h{type} = 0x402; if (defined $macos_part) { @@ -293,7 +293,10 @@ sub write($$$;$) { $_->{pType} = "Apple_Bootstrap"; $_->{pName} = "bootstrap"; $_->{pFlags} = 0x33; - $_->{isBoot} = 1; + $_->{isBoot} = 1; + log::l("writing a bootstrap at /dev/$_->{device}"); + $install_steps_interactive::new_bootstrap = 1 if !(defined $partition_table_mac::bootstrap_part); + $bootstrap_part = "/dev/" . $_->{device}; } elsif ($_->{type} == 0x82) { $_->{pType} = "Apple_UNIX_SVR2"; $_->{pName} = "swap"; -- cgit v1.2.1