diff options
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 4590a39e2..cc1b9e459 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -576,9 +576,12 @@ sub summary_prompt { $set_entry_labels = sub { foreach (@$l) { - my $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>'; - $t =~ s/&/&/g; - gtkset($_->{widget}, text_markup => $_->{label} . ' - ' . $t); + my $t; + if ($_->{val}) { + $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>'; + $t =~ s/&/&/g; + } + gtkset($_->{widget}, text_markup => $_->{label} . ($t ? " - $t" : '')); } }; $set_entry_labels->(); |