diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-04 18:31:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-04 18:31:12 +0000 |
| commit | 4e096379cad750ecfdb7ddd78eeae899380a7696 (patch) | |
| tree | d8d20a99442163647d9daac826478cb5695f4312 /perl-install/interactive_newt.pm | |
| parent | a653f2e1d6d6ff8ee49c647e747bdb5b549429c2 (diff) | |
| download | drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.gz drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.bz2 drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.tar.xz drakx-4e096379cad750ecfdb7ddd78eeae899380a7696.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive_newt.pm')
| -rw-r--r-- | perl-install/interactive_newt.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index 67238844b..dc21c27e2 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -128,7 +128,6 @@ sub ask_from_entries_refW { #- $_->{type} = "entry" if $_->{type} eq "list" && !$_->{not_edit}; ${$_->{val}} ||= ''; if ($_->{type} eq "list") { - $_->{val} ||= $_->{list}[0]; my $w = Newt::Component::Listbox(-1, -1, 1, 0); $w->ListboxSetWidth(20); $w->ListboxAddEntry($_) foreach @{$_->{list}}; |