summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-07 16:22:03 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-07 16:22:03 +0000
commit0a0d5a1f290319b767e7078c8173f013a5bb842f (patch)
tree7586b5505da67d1a54549b4b9171773c4aff96d9 /perl-install/interactive.pm
parentb8f3f1d37183e4ba45a173f1c9800e56daa1fa3a (diff)
downloaddrakx-0a0d5a1f290319b767e7078c8173f013a5bb842f.tar
drakx-0a0d5a1f290319b767e7078c8173f013a5bb842f.tar.gz
drakx-0a0d5a1f290319b767e7078c8173f013a5bb842f.tar.bz2
drakx-0a0d5a1f290319b767e7078c8173f013a5bb842f.tar.xz
drakx-0a0d5a1f290319b767e7078c8173f013a5bb842f.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 8a9c73ade..cf22eae85 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -99,7 +99,7 @@ sub ask_from_entry {
sub ask_from_entries($$$$;$%) {
my ($o, $title, $message, $l, $def, %callback) = @_;
- my $val = [ map { my $i = $_; \$i } @$def ];
+ my $val = [ map { my $i = $_; \$i } @{$def || [('') x @$l]} ];
$o->ask_from_entries_ref($title, $message, $l, $val, %callback) ?
map { $$_ } @$val :