(build_list) localize $index where really needed

1 files changed, 2 insertions, 1 deletions

diff --git a/control-center b/control-center
index 3ff07327..4959d990 100755
--- a/control-center
+++ b/control-center
@@ -763,7 +763,7 @@ foreach my $notebook ($banner_notebook) {
 
 my ($_hand_cursor, $wait_cursor) = map { Gtk2::Gdk::Cursor->new($_) } qw(hand2 watch);
 
-my ($index, $left_locked) = (0, 0);
+my $left_locked = 0;
 
 #my $spacing = 25;
 
@@ -845,6 +845,7 @@ sub build_widget_element {
 }
 
 sub build_list() {
+    my $index = 0;
     load_packages2install();
     my $i;
 foreach (@tree) {