summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
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}});
}