diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-06 11:21:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-06 11:21:09 +0000 |
| commit | de4f752c310da49cfe15cc9cc90886354511b5cc (patch) | |
| tree | d705e015afe68d2f4e341a895e9129765f9f7d0d /perl-install/install | |
| parent | eb80eb7030821b34ee0da643724e7cfff4194b47 (diff) | |
| download | drakx-de4f752c310da49cfe15cc9cc90886354511b5cc.tar drakx-de4f752c310da49cfe15cc9cc90886354511b5cc.tar.gz drakx-de4f752c310da49cfe15cc9cc90886354511b5cc.tar.bz2 drakx-de4f752c310da49cfe15cc9cc90886354511b5cc.tar.xz drakx-de4f752c310da49cfe15cc9cc90886354511b5cc.zip | |
- 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
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; |