diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 16:22:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-07 16:22:03 +0000 |
| commit | 0a0d5a1f290319b767e7078c8173f013a5bb842f (patch) | |
| tree | 7586b5505da67d1a54549b4b9171773c4aff96d9 /perl-install/interactive.pm | |
| parent | b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a (diff) | |
| download | drakx-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.pm | 2 |
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 : |