From de4f752c310da49cfe15cc9cc90886354511b5cc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 6 Aug 2007 11:21:09 +0000
Subject: - fix range max value >2TB when creating a partition (useful for LVs
 >2TB)

nb: >> 11 and << 11 doesn't work on floats which we use to handle >2TB
partitions. perl floats are precise enough up until 512TB
---
 perl-install/install/NEWS                 | 2 ++
 perl-install/install/any.pm               | 2 +-
 perl-install/install/steps_interactive.pm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/install')

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;
-- 
cgit v1.2.1