summaryrefslogtreecommitdiffstats
path: root/perl-install
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
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')
-rw-r--r--perl-install/interactive.pm2
-rw-r--r--perl-install/modparm.pm2
2 files changed, 2 insertions, 2 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 :
diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
index cfbd063b5..308929bf6 100644
--- a/perl-install/modparm.pm
+++ b/perl-install/modparm.pm
@@ -3,7 +3,7 @@ package modparm;
use diagnostics;
use strict;
-use common qw(:common);
+use common qw(:common :functional);
use log;