From 31d8bbdc3d44ec41a8ad359d62ebfb2d0f35662d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 28 Mar 2012 18:42:15 +0000
Subject: perl_checker cleanups

---
 MageiaUpdate | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MageiaUpdate')

diff --git a/MageiaUpdate b/MageiaUpdate
index 4cfe8fec..5358a7c4 100755
--- a/MageiaUpdate
+++ b/MageiaUpdate
@@ -263,7 +263,7 @@ sub run_treeview_dialog {
     my $cell = ($bool_col->get_cell_renderers)[0];
     $cell->signal_connect(toggled => sub {
 	my ($_cell, $text_path) = @_;
-	my $name = @{$list->{data}[$text_path]}[$pkg_columns{text}];
+	my $name = $list->{data}[$text_path][$pkg_columns{text}];
 	gtkset_mousecursor_wait($w->{real_window}->window);
 	my $_guard = before_leaving(sub { gtkset_mousecursor_normal($w->{real_window}->window) });
 	toggle($list, $name);
-- 
cgit v1.2.1