summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-06-23 13:03:19 +0000
committerFrancois Pons <fpons@mandriva.com>2000-06-23 13:03:19 +0000
commitc8d8767aa3dfeb049fd662080ac8cf2a7075ca56 (patch)
treee424b6ad6a2f2142554bee44cedd04d5016de938 /perl-install/interactive.pm
parentb8820f0b8f1a137b9baa11b76626ad79e47cb707 (diff)
downloaddrakx-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar
drakx-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.gz
drakx-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.bz2
drakx-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.xz
drakx-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.zip
*** empty log message ***
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 6f7b74fd0..8cef5ed7e 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -228,7 +228,7 @@ sub ask_from_entries_ref($$$$;$%) {
{ val => $_ }
} else {
if (@{$_->{list} || []} > 1) {
- add2hash($_, { not_edit => 1 })
+ add2hash_($_, { not_edit => 1 });
add2hash_($_, { type => 'list' });
${$_->{val}} = $_->{list}[0] if $_->{not_edit} && !member(${$_->{val}}, @{$_->{list}});
}