diff options
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index d03d07e3a..647d3bcef 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix range max value >2TB when creating a partition (useful for LVs >2TB) + Version 10.4.158 - 3 August 2007, by Pascal "Pixel" Rigaux - configure removable writable media to use "flush" option instead of "sync" (#23042) diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 956f1adff..6a6bb3d4c 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -132,7 +132,7 @@ sub getAvailableSpace_raw { if ($::testing) { my $nb = 450; log::l("taking ${nb}MB for testing"); - return $nb << 11; + return MB($nb); } die "missing root partition"; } diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 5a1deb0b3..3f8e9bd0f 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -212,7 +212,7 @@ sub doPartitionDisks { 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 => '' }; + my $p = { start => $freepart->{start}, size => MB(1), mntpoint => '' }; fs::type::set_pt_type($p, 0x401); fsedit::add($freepart->{hd}, $p, $o->{all_hds}, { force => 1, primaryOrExtended => 'Primary' }); $partition_table::mac::new_bootstrap = 1; |