From b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:33 +0000
Subject: perl_checker cleanups

---
 bin/drakhosts | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'bin/drakhosts')

diff --git a/bin/drakhosts b/bin/drakhosts
index 1b99c1b..1c2a49a 100644
--- a/bin/drakhosts
+++ b/bin/drakhosts
@@ -17,8 +17,6 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 # 02111-1307, USA.
 
-my $version = "0.1";
-
 # i18n: IMPORTANT: to get correct namespace (drakhosts instead of libDrakX)
 BEGIN { unshift @::textdomains, 'drakhosts' }
 
@@ -80,7 +78,7 @@ sub add_modify_entry {
   my $model = $treeview->get_model;
   my $selection = $treeview->get_selection;
   my $iter;
-  my ($i, $ip, $hostname, $alias, $oldip);
+  my ($i, $ip, $hostname, $alias);
   undef $i;
   undef $iter;
 
@@ -103,7 +101,6 @@ sub add_modify_entry {
     $ip->set_text($listhosts[$i]{ip});
     $hostname->set_text($listhosts[$i]{hostname});
     $alias->set_text($listhosts[$i]{alias});
-    $oldip = $listhosts[$i]{ip};
   }
 
   my $text;
@@ -178,7 +175,6 @@ sub create_model() {
 # add colum to model
 sub add_columns {
   my $treeview = shift;
-  my $model = $treeview->get_model;
   each_index {
     my $renderer = Gtk2::CellRendererText->new;
     $renderer->set(editable => 0);
-- 
cgit v1.2.1