diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-09-17 10:07:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-09-17 10:07:31 +0000 |
| commit | baffb50fb8d8b895e282b389531c57ee11119c75 (patch) | |
| tree | 7b2465208a8c166bf56cae39782e1d22bdb97399 /perl-install/interactive | |
| parent | b9920b968a44e2178e90cd63a7615d67b441e6ba (diff) | |
| download | drakx-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.pm | 8 |
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; |