summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-10-05 09:27:46 +0000
committerThierry Vignaud <tv@mandriva.org>2009-10-05 09:27:46 +0000
commita1e8fb98d4f56ef5256582fabb894780eaaa8594 (patch)
tree936fbeeea42faeccf7ea71308acdffdb7a77d932 /perl-install
parent0ad666f424b96879c976319f87f7ae13788a82aa (diff)
downloaddrakx-a1e8fb98d4f56ef5256582fabb894780eaaa8594.tar
drakx-a1e8fb98d4f56ef5256582fabb894780eaaa8594.tar.gz
drakx-a1e8fb98d4f56ef5256582fabb894780eaaa8594.tar.bz2
drakx-a1e8fb98d4f56ef5256582fabb894780eaaa8594.tar.xz
drakx-a1e8fb98d4f56ef5256582fabb894780eaaa8594.zip
(create_widget) stock kind in a local variable
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 1c3c8f6cc..12aeccebb 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -458,7 +458,8 @@ sub create_widget {
@buttons = map {
my $button = /^gtk-/ ? gtknew('Button', image => gtknew('Image', stock => $_))
: Gtk2::Button->new(translate($_));
- { kind => lc $_, action => $actions->{$_}, button => $button };
+ my $kind = $_;
+ { kind => lc $kind, action => $actions->{$kind}, button => $button };
} @buttons;
my $modify = find { $_->{kind} eq 'modify' } @buttons;