From 0074ec3e2f3ba214c550ed85d38a346f2ee2449e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 28 Oct 2009 20:23:41 +0000 Subject: please perl_checker --- perl-install/fs/partitioning_wizard.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index e9c35c570..09bbbfcb3 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -147,10 +147,10 @@ sub partitionWizardSolutions { #- try to keep at least 1GB free for Windows #- try to use from 6GB to 10% free space for Linux my $suggested_size = max( - $part->{min_win} + 1*MB(1024), + $part->{min_win} + 1 * MB(1024), min( $part->{size} - int(0.1 * ($part->{size} - $part->{min_win})), - $part->{size} - 6*MB(1024), + $part->{size} - 6 * MB(1024), ), ); $part->{req_size} = max(min($suggested_size, $part->{size} - $part->{min_linux}), $part->{min_win}); -- cgit v1.2.1