summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-09-17 10:07:31 +0000
committerThierry Vignaud <tv@mandriva.org>2009-09-17 10:07:31 +0000
commitbaffb50fb8d8b895e282b389531c57ee11119c75 (patch)
tree7b2465208a8c166bf56cae39782e1d22bdb97399 /perl-install/interactive
parentb9920b968a44e2178e90cd63a7615d67b441e6ba (diff)
downloaddrakx-backup-do-not-use-baffb50fb8d8b895e282b389531c57ee11119c75.tar
drakx-backup-do-not-use-baffb50fb8d8b895e282b389531c57ee11119c75.tar.gz
drakx-backup-do-not-use-baffb50fb8d8b895e282b389531c57ee11119c75.tar.bz2
drakx-backup-do-not-use-baffb50fb8d8b895e282b389531c57ee11119c75.tar.xz
drakx-backup-do-not-use-baffb50fb8d8b895e282b389531c57ee11119c75.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm8
1 files 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;