summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm9
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/&/&amp;/g;
- gtkset($_->{widget}, text_markup => $_->{label} . ' - ' . $t);
+ my $t;
+ if ($_->{val}) {
+ $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>';
+ $t =~ s/&/&amp;/g;
+ }
+ gtkset($_->{widget}, text_markup => $_->{label} . ($t ? " - $t" : ''));
}
};
$set_entry_labels->();