From d1f790931b430a7e632cac0b46313433fec7f998 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 18 Sep 2000 21:42:21 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b797b8fc5..e11a72029 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -251,6 +251,9 @@ sub ask_from_entries_ref($$$$;$%) {
 	    if (@{$_->{list} || []} > 1) {
 		add2hash_($_, { not_edit => 1, type => 'list' });
 		${$_->{val}} = $_->{list}[0] if $_->{not_edit} && !member(${$_->{val}}, @{$_->{list}});
+	    } elsif ($_->{type} eq 'range') {
+		$_->{min} <= $_->{max} or die "bad range (called from " . caller() . ")";
+		${$_->{val}} = max($_->{min}, min(${$_->{val}}, $_->{max}));
 	    }
 	    $_;
 	}
-- 
cgit v1.2.1