From baffb50fb8d8b895e282b389531c57ee11119c75 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 17 Sep 2009 10:07:31 +0000 Subject: perl_checker cleanups --- perl-install/interactive/gtk.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index a4f13a4b7..ecdcf554c 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -421,7 +421,7 @@ sub create_widget { my $w = $w->child; # handle Install_Buttons: if (ref($w) =~ /Gtk2::HBox/) { - ($w) = grep { ref($_) =~ /Gtk2::Label/ } $w->get_children; + ($w) = find { ref($_) =~ /Gtk2::Label/ } $w->get_children; } # guard against 'advanced' widgets that are now in their own dialog # (instead of in another block child of an expander): @@ -450,12 +450,12 @@ sub create_widget { $e->{formatted_list} = [ map { may_apply($e->{format}, $_) } @{$e->{list}} ]; if (my $actions = $e->{add_modify_remove}) { - my @buttons = ( N_("Add"), N_("Modify"), N_("Remove")); + my @buttons = (N_("Add"), N_("Modify"), N_("Remove")); # Add Up/Down buttons if their actions are defined foreach (qw(Up Down)) { - push @buttons, $_ if ($actions->{$_}); + push @buttons, $_ if $actions->{$_}; } - my @buttons = map { + @buttons = map { { kind => lc $_, action => $actions->{$_}, button => Gtk2::Button->new(translate($_)) }; } @buttons; my $modify = find { $_->{kind} eq 'modify' } @buttons; -- cgit v1.2.1