allow giving {percent_size} instead of {size}

1 files changed, 9 insertions, 0 deletions

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index ef632a9f7..4a30c9765 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -350,6 +350,15 @@ sub suggest_part {
       grep { !$_->{hd} || $_->{hd} eq $part->{rootDevice} }
 	@$suggestions;
 
+    #- this allows specifying the size using a relative size.
+    #- one should rather use {ratio} instead
+    foreach (@local_suggestions) {
+	if ($_->{percent_size} && $_->{percent_size} =~ /(.+?)%?$/) {
+	    $_->{size} = $1 / 100 * fs::get::part2hd($part, $all_hds)->{totalsectors};
+	    log::l("in suggestion, setting size=$_->{size} for percent_size=$_->{percent_size}");
+	}
+    }
+
     my ($best) =
       grep { !$_->{maxsize} || $part->{size} <= $_->{maxsize} }
       grep { $_->{size} <= ($part->{maxsize} || $part->{size}) }