ensure the "range" entry returned value is bounded as asked

(useful for backends not handling "range" correctly, like interactive::newt)
(bugzilla #13744)

1 files changed, 7 insertions, 0 deletions

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 1d704112e..d577ded21 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -406,6 +406,13 @@ sub ask_from_real {
     my ($o, $common, $l) = @_;
     my ($l1, $l2) = partition { !$_->{advanced} } @$l;
     my $v = $o->ask_fromW($common, $l1, $l2);
+
+    foreach my $e (@$l1, @$l2) {
+	if ($e->{type} eq 'range') {
+	    ${$e->{val}} = max($e->{min}, min(${$e->{val}}, $e->{max}));
+	}
+    }
+
     %$common = ();
     $v;
 }