From 0a0d5a1f290319b767e7078c8173f013a5bb842f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 7 Sep 1999 16:22:03 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive.pm')

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 : 
-- 
cgit v1.2.1