From a1e8fb98d4f56ef5256582fabb894780eaaa8594 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 5 Oct 2009 09:27:46 +0000
Subject: (create_widget) stock kind in a local variable

---
 perl-install/interactive/gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive')

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;
 
-- 
cgit v1.2.1