From 9a682226521c5a58996586175432c79d323ed801 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 3 Mar 2003 16:46:43 +0000
Subject: remove unused $rows_cnt

---
 perl-install/standalone/drakperm | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'perl-install/standalone/drakperm')

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 7e56d8a6d..c1746baa0 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -24,7 +24,6 @@ my %perm = ( 'level 1' => $perm_path.'perm.1',
              'level 5' => $perm_path.'perm.5',
              'editable' => $local_path.'perm.local',
            );
-my $rows_cnt = 0;
 my $editable = 0;
 my $modified = 0;
 my $prec_txt = $default_perm_level;
@@ -52,7 +51,6 @@ $combo_perm->set_popdown_strings(sort(keys %perm));
 
 sub add_callback {
     row_setting_dialog($treeModel->append_set(undef, [ 0 => 'new', 1 => '-', 2 => '-', 3 => '-' ]));
-    $rows_cnt++;
     $modified++;
 }
 
@@ -72,7 +70,6 @@ sub edit_callback {
 sub del_callback {
     my ($tree, $iter) = $permList->get_selection->get_selected();
     $tree->remove($iter);
-    $rows_cnt--;
     $modified++;
 }
 
@@ -174,7 +171,6 @@ sub display_perm {
     close F;
     $up_down_box->set_sensitive($editable);
 	
-    $rows_cnt = $i;
     $prec_txt = $perm_level;
     undef(%CURENT);
 }
-- 
cgit v1.2.1