diff options
| author | Stew Benedict <stewb@mandriva.org> | 2001-03-07 15:53:16 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2001-03-07 15:53:16 +0000 |
| commit | 6f68ea188996d14b28460fcfb658acd8d9897cf7 (patch) | |
| tree | 9325690cce6e6f38bf4d7f35521a955ee07d2db2 /perl-install/partition_table_mac.pm | |
| parent | 7e1353553ee0532a2380e0ead7839717262471c4 (diff) | |
| download | drakx-backup-do-not-use-6f68ea188996d14b28460fcfb658acd8d9897cf7.tar drakx-backup-do-not-use-6f68ea188996d14b28460fcfb658acd8d9897cf7.tar.gz drakx-backup-do-not-use-6f68ea188996d14b28460fcfb658acd8d9897cf7.tar.bz2 drakx-backup-do-not-use-6f68ea188996d14b28460fcfb658acd8d9897cf7.tar.xz drakx-backup-do-not-use-6f68ea188996d14b28460fcfb658acd8d9897cf7.zip | |
* perl-install/any.pm - change in partition_table_mac'xxx syntax
* perl-install/install_steps_interactive.pm - change in partition_table_mac'xxx syntax
* perl-install/partition_table_mac.pm - change in partition_table_mac'xxx syntax
Diffstat (limited to 'perl-install/partition_table_mac.pm')
| -rw-r--r-- | perl-install/partition_table_mac.pm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/perl-install/partition_table_mac.pm b/perl-install/partition_table_mac.pm index 30c269398..800bfc285 100644 --- a/perl-install/partition_table_mac.pm +++ b/perl-install/partition_table_mac.pm @@ -138,23 +138,23 @@ sub read($$) { $h{pName} =~ /swap/i ? ($h{type} = 0x82) : ($h{type} = 0x83); } elsif ($h{pType} =~ /^Apple_Free/i) { #- need to locate a 1MB partition to setup a bootstrap on - if (defined $partition_table_mac'freepart_start && $partition_table_mac'freepart_size >= 1) { + if (defined $partition_table_mac::freepart_start && $partition_table_mac::freepart_size >= 1) { #- already found a suitable partition } else { - $partition_table_mac'freepart_start = $h{start}; - $partition_table_mac'freepart_size = $h{size}/2048; - $partition_table_mac'freepart_device = $hd; - log::l("free apple partition found on drive /dev/$partition_table_mac'freepart_device->{device}, block $partition_table_mac'freepart_start, size $partition_table_mac'freepart_size"); + $partition_table_mac::freepart_start = $h{start}; + $partition_table_mac::freepart_size = $h{size}/2048; + $partition_table_mac::freepart_device = $hd; + log::l("free apple partition found on drive /dev/$partition_table_mac::freepart_device->{device}, block $partition_table_mac::freepart_start, size $partition_table_mac::freepart_size"); } next; #$h{type} = 0x0; } elsif ($h{pType} =~ /^Apple_HFS/i) { $h{type} = 0x402; - if (defined $partition_table_mac'macos_part) { + if (defined $partition_table_mac::macos_part) { #- swag at identifying MacOS - 1st HFS partition } else { - $partition_table_mac'macos_part = "/dev/" . $hd->{device} . ($i+1); - log::l("found MacOS at partition $partition_table_mac'macos_part"); + $partition_table_mac::macos_part = "/dev/" . $hd->{device} . ($i+1); + log::l("found MacOS at partition $partition_table_mac::macos_part"); } } elsif ($h{pType} =~ /^Apple_Partition_Map/i) { $h{type} = 0x401; @@ -162,8 +162,13 @@ sub read($$) { } elsif ($h{pType} =~ /^Apple_Bootstrap/i) { $h{type} = 0x401; $h{isBoot} = 1; - $partition_table_mac'bootstrap_part = "/dev/" . $hd->{device} . ($i+1); - log::l("found bootstrap at partition $partition_table_mac'bootstrap_part"); + if (defined $partition_table_mac::bootstrap_part) { + #found a bootstrap already - use it, but log the find + log::l("found another apple bootstrap at partition /dev/$hd->{device}" . ($i+1)); + } else { + $partition_table_mac::bootstrap_part = "/dev/" . $hd->{device} . ($i+1); + log::l("found apple bootstrap at partition $partition_table_mac::bootstrap_part"); + } } else { $h{type} = 0x401; $h{isDriver} = 1; |