do not empty and reload the packages list for dummy changes (aka if group

hasn't actually changed)

1 files changed, 4 insertions, 0 deletions

diff --git a/rpmdrake b/rpmdrake
index 7d7dd73d..d8e07818 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -1001,6 +1001,10 @@ or you already installed all of them."));
     ) foreach $tree, $detail_tree;
     $tree->get_selection->signal_connect(changed => sub {
         my ($model, $iter) = $_[0]->get_selected;
+        my $current_group if 0;
+        my $new_group = $model->get($iter, 0);
+        return if $current_group eq $new_group;
+        $current_group = $new_group;
         $model && $iter or return;
         my $group = $model->get($iter, 0);
         my $parent = $iter;