From eb736786a058722c1c27b607aa2f9f09f1a0873b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 2004 21:32:43 +0000
Subject: simpler code

---
 perl-install/install_steps_gtk.pm | 9 +++++----
 1 file 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);
-- 
cgit v1.2.1