From 5fd094c7e819f3cdd30ab87a5c44455e97b48346 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Jun 2005 07:42:35 +0000 Subject: - compute free_space per hd if needed (useful when auto-allocating on vgs with still free space on hd) - fix verifying enough space for next allocate --- perl-install/fsedit.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index e2000b2b1..ae403b9d7 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -295,13 +295,19 @@ sub computeSize { my $max = $part->{maxsize} || $part->{size}; return min($max, $best->{size}) unless $best->{ratio}; - my $free_space = fs::get::free_space($all_hds); - my @l = my @L = grep { - if ($free_space >= $_->{size}) { - $free_space -= $_->{size}; + my %free_space; + $free_space{$_->{rootDevice}} += $_->{size} foreach fs::get::holes($all_hds); + + my @l = my @L = grep { + my @possible = $_->{hd} ? $_->{hd} : keys %free_space; + my $size = $_->{size}; + if (my $dev = find { $free_space{$_} >= $size } @possible) { + $free_space{$dev} -= $size; 1; } else { 0 } } @$suggestions; + my $free_space = $best->{hd} && $free_space{$best->{hd}} || sum(values %free_space); + my $cylinder_size_maxsize_adjusted; my $tot_ratios = 0; while (1) { @@ -327,7 +333,7 @@ sub computeSize { } my $size = int min($max, $best->{size} + $free_space * ($tot_ratios && $best->{ratio} / $tot_ratios)); #- verify other entry can fill the hole - (any { $_->{size} < $max - $size } @L) ? $size : $max; + (any { $_->{size} <= $max - $size } @L) ? $size : $max; } sub suggest_part { -- cgit v1.2.1