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

---
 docs/TODO                   | 1 +
 perl-install/interactive.pm | 2 +-
 perl-install/modparm.pm     | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/TODO b/docs/TODO
index 10dd17197..afe1b629c 100644
--- a/docs/TODO
+++ b/docs/TODO
@@ -75,3 +75,4 @@ suggested partition tables must be better foreach installClass
 Done_ZZZ:EEE:Pixel: dd the different xmodmaps for every languages (maybe gnome-core xmodmaps can help)
 xmodmap needed even for english as the backspace is not what it should
 
+aha152x needs "insmod aha152x.o aha152x=0x140,11,7"
\ No newline at end of file
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;
 
 
-- 
cgit v1.2.1