diff options
| -rw-r--r-- | perl-install/interactive_newt.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index 4c4c0e65e..e6c25c33c 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -213,6 +213,12 @@ sub ask_from_entries_refW { if ($$r != $$cancel && $hcallback{complete}) { my ($error, $focus) = $hcallback{complete}->(); + + if ($val->[$focus]{hidden}) { + #-reset all hidden to null, newt doesn't display null entries, disturbing + $_->{hidden} and ${$_->{val}} = '' foreach @$val; + } + #-update all the value &$_ foreach @updates_inv; goto run if $error; |