summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/any.pm2
-rw-r--r--perl-install/install/steps_interactive.pm2
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;