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, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 7e826c514..d8e11ac25 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -610,11 +610,12 @@ sub summary_prompt {
my $set_entry_labels;
my @table;
- my %group;
+ my $group;
foreach my $e (@$l) {
- $group{$e->{group}} ||= do {
- push @table, [ gtkpack__(Gtk2::HBox->new(0, 0), $e->{group}), '' ];
- };
+ if ($group ne $e->{group}) {
+ $group = $e->{group};
+ push @table, [ gtkpack__(Gtk2::HBox->new(0, 0), $group), '' ];
+ }
$e->{widget} = Gtk2::Label->new;
$e->{widget}->set_property(wrap => 1);
$e->{widget}->set_size_request($::real_windowwidth * 0.72, -1);