summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_mac.pm
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2001-03-08 14:57:28 +0000
committerStew Benedict <stewb@mandriva.org>2001-03-08 14:57:28 +0000
commitdaf99712989d1d78bb73d45ef9cd13134ad6c04f (patch)
tree7acb94042020dc0056427b932a8d77c391482b71 /perl-install/partition_table_mac.pm
parent5de710594e06d08f80afa26e88d28d749ea7cdf7 (diff)
downloaddrakx-daf99712989d1d78bb73d45ef9cd13134ad6c04f.tar
drakx-daf99712989d1d78bb73d45ef9cd13134ad6c04f.tar.gz
drakx-daf99712989d1d78bb73d45ef9cd13134ad6c04f.tar.bz2
drakx-daf99712989d1d78bb73d45ef9cd13134ad6c04f.tar.xz
drakx-daf99712989d1d78bb73d45ef9cd13134ad6c04f.zip
fixed variable referencing - thx Pixel
Diffstat (limited to 'perl-install/partition_table_mac.pm')
-rw-r--r--perl-install/partition_table_mac.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/partition_table_mac.pm b/perl-install/partition_table_mac.pm
index 800bfc285..c4c85d799 100644
--- a/perl-install/partition_table_mac.pm
+++ b/perl-install/partition_table_mac.pm
@@ -2,7 +2,7 @@ package partition_table_mac; # $Id$
use diagnostics;
#use strict; - fixed other PPC code to comply, but program bails on empty partition table - sbenedict
-use vars qw(@ISA);
+use vars qw(@ISA $freepart_device $bootstrap_part $freepart_start $freepart_size $macos_part);
@ISA = qw(partition_table_raw);
@@ -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 $freepart_start && $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");
+ $freepart_start = $h{start};
+ $freepart_size = $h{size}/2048;
+ $freepart_device = $hd;
+ log::l("free apple partition found on drive /dev/$freepart_device->{device}, block $freepart_start, size $freepart_size");
}
next;
#$h{type} = 0x0;
} elsif ($h{pType} =~ /^Apple_HFS/i) {
$h{type} = 0x402;
- if (defined $partition_table_mac::macos_part) {
+ if (defined $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");
+ $macos_part = "/dev/" . $hd->{device} . ($i+1);
+ log::l("found MacOS at partition $macos_part");
}
} elsif ($h{pType} =~ /^Apple_Partition_Map/i) {
$h{type} = 0x401;
@@ -162,12 +162,12 @@ sub read($$) {
} elsif ($h{pType} =~ /^Apple_Bootstrap/i) {
$h{type} = 0x401;
$h{isBoot} = 1;
- if (defined $partition_table_mac::bootstrap_part) {
+ if (defined $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");
+ $bootstrap_part = "/dev/" . $hd->{device} . ($i+1);
+ log::l("found apple bootstrap at partition $bootstrap_part");
}
} else {
$h{type} = 0x401;