From 96975fd97a41a0d641cc057bb1181ac16d2f4022 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 27 Jan 2013 15:49:26 +0000
Subject: perl_checker cleanup

---
 control-center | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/control-center b/control-center
index c79f7c20..47ffa2fa 100755
--- a/control-center
+++ b/control-center
@@ -860,7 +860,7 @@ sub build_list() {
     load_packages2install();
     my $i;
 foreach (@tree) {
-    my ($text, $icon, $help, $subtrees) = @$_;
+    my ($text, $_icon, $help, $subtrees) = @$_;
 
     my @subtrees = grep { $_->{list} = [ clean_list($_->{list}) ]; !is_empty_array_ref($_->{list}) } @$subtrees;
 
@@ -962,7 +962,6 @@ foreach (@tree) {
 
         $string .= "</TABLE>\n";
     }
-    my $text_orig = $text;
     # b/c we use Pango text markup language, we've to protect '&' caracter:
     $text =~ s/&/&amp;/g;
     $page_count++;
@@ -985,7 +984,6 @@ foreach (@tree) {
                             },
                 );
 
-    #add2notebook($banner_notebook, "", Gtk2::Banner->new($icon, $text_orig));
 }
 }
 
-- 
cgit v1.2.1