summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-22 19:57:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-22 19:57:09 +0000
commitc383affd4bd0e2c054575c038eda07db03effcb0 (patch)
tree8e80e3951ae49e195bb24a7bbc0701fd569dc0d2 /perl-install/interactive.pm
parent90545edd3b0599b389168b024dd08fd8fed68000 (diff)
downloaddrakx-c383affd4bd0e2c054575c038eda07db03effcb0.tar
drakx-c383affd4bd0e2c054575c038eda07db03effcb0.tar.gz
drakx-c383affd4bd0e2c054575c038eda07db03effcb0.tar.bz2
drakx-c383affd4bd0e2c054575c038eda07db03effcb0.tar.xz
drakx-c383affd4bd0e2c054575c038eda07db03effcb0.zip
*** empty log message ***
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 96313f199..6f7b74fd0 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -228,6 +228,7 @@ sub ask_from_entries_ref($$$$;$%) {
{ val => $_ }
} else {
if (@{$_->{list} || []} > 1) {
+ add2hash($_, { not_edit => 1 })
add2hash_($_, { type => 'list' });
${$_->{val}} = $_->{list}[0] if $_->{not_edit} && !member(${$_->{val}}, @{$_->{list}});
}