diff options
| -rw-r--r-- | docs/TODO | 1 | ||||
| -rw-r--r-- | perl-install/interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/modparm.pm | 2 |
3 files changed, 3 insertions, 2 deletions
@@ -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; |