diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-10-05 09:27:46 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-10-05 09:27:46 +0000 |
| commit | a1e8fb98d4f56ef5256582fabb894780eaaa8594 (patch) | |
| tree | 936fbeeea42faeccf7ea71308acdffdb7a77d932 /perl-install | |
| parent | 0ad666f424b96879c976319f87f7ae13788a82aa (diff) | |
| download | drakx-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.pm | 3 |
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; |