summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-28 00:38:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-28 00:38:31 +0000
commita2684a39b0328d328fb5fc15443b34f229405583 (patch)
tree90b4c93e38a7c75d664f2651c1a8c86f23540265 /perl-install/interactive.pm
parentded1296850850b73f27a33eb0259aa6df70a04f1 (diff)
downloaddrakx-a2684a39b0328d328fb5fc15443b34f229405583.tar
drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.gz
drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.bz2
drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.xz
drakx-a2684a39b0328d328fb5fc15443b34f229405583.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e78eb2e8a..1de89e42a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -257,7 +257,7 @@ sub ask_from_entries_ref($$$$;$%) {
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() . ")";
+ $_->{min} <= $_->{max} or die "bad range min $_->{min} > max $_->{max} (called from " . join(':', caller()) . ")";
${$_->{val}} = max($_->{min}, min(${$_->{val}}, $_->{max}));
}
$_;