From 75085b969b939ac9ca5ebdf1fe7c36ea4a36b8f5 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Wed, 14 Mar 2001 21:45:42 +0000 Subject: fix bootstrap partition creation/tracking allow Xpmac to launch in 2 modes based on cmdline --- perl-install/partition_table_mac.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (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 c4c85d799..52486a776 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 $freepart_device $bootstrap_part $freepart_start $freepart_size $macos_part); +use vars qw(@ISA $freepart_device $bootstrap_part $freepart_start $freepart_size $freepart_part $macos_part); @ISA = qw(partition_table_raw); @@ -144,6 +144,7 @@ sub read($$) { $freepart_start = $h{start}; $freepart_size = $h{size}/2048; $freepart_device = $hd; + $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; -- cgit v1.2.1