diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-20 19:52:33 +0000 |
| commit | b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 (patch) | |
| tree | d42205550d30ec092f9743748bcec938017f985b /bin/drakhosts | |
| parent | 683619174a6cd634655ac6a489b5a6efb1b5b3cc (diff) | |
| download | drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.gz drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.bz2 drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.tar.xz drakx-net-b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3.zip | |
perl_checker cleanups
Diffstat (limited to 'bin/drakhosts')
| -rw-r--r-- | bin/drakhosts | 6 |
1 files changed, 1 insertions, 5 deletions
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); |