summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-25 21:32:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-25 21:32:43 +0000
commiteb736786a058722c1c27b607aa2f9f09f1a0873b (patch)
tree87e9844c1dd1b335420b1c5a34430e7d180fa3b2 /perl-install
parent9a72bff48ce6fb7c6b4ada2a4e20299f108dcf51 (diff)
downloaddrakx-backup-do-not-use-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar
drakx-backup-do-not-use-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.gz
drakx-backup-do-not-use-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.bz2
drakx-backup-do-not-use-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.xz
drakx-backup-do-not-use-eb736786a058722c1c27b607aa2f9f09f1a0873b.zip
simpler code
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);