diff options
| -rw-r--r-- | perl-install/wizards.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm index 7442074b1..a9dd3b19c 100644 --- a/perl-install/wizards.pm +++ b/perl-install/wizards.pm @@ -109,6 +109,8 @@ sub process { my $data = defined $page->{data} ? ref $page->{data} ? $page->{data} : [ { label => '' } ] : [ { label => '' } ]; my $data2; foreach my $d (@$data) { + $d->{val} = ${$d->{val_ref}} if $d->{val_ref}; + $d->{list} = $d->{list_ref} if $d->{list_ref}; if ($d->{boolean_list}) { my $i; foreach (@{$d->{boolean_list}}) { |