diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 9 |
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); |