1 files changed, 8 insertions, 12 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 869eafe6d..a17d0b916 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -56,7 +56,14 @@ sub add_callback {
 
 sub edit_callback {
     my (undef, $iter) = $permList->get_selection->get_selected;
-    row_setting_data($iter);
+    return unless $iter;
+    %CURENT = ('data' => [
+                          $treeModel->_get($iter, 0),
+                          $treeModel->_get($iter, 1),
+                          $treeModel->_get($iter, 2),
+                          $treeModel->_get($iter, 3),
+                         ]
+              );
     row_setting_dialog($iter);
 }
 
@@ -189,17 +196,6 @@ sub save_perm {
     $modified = 0;
 }
 
-sub row_setting_data {
-    my ($iter) = @_;
-    %CURENT = ('data' => [
-			  $treeModel->_get($iter, 0),
- 			  $treeModel->_get($iter, 1),
- 			  $treeModel->_get($iter, 2),
- 			  $treeModel->_get($iter, 3),
- 			 ]
-	      );
-}
-
 sub row_setting_dialog {
     my ($iter) = @_;