Avoid to select an entire subtree. Works around bug #9941.

1 files changed, 3 insertions, 3 deletions

diff --git a/rpmdrake b/rpmdrake
index 281097eb..fd75615d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -501,12 +501,12 @@ or you already installed all of them."));
 		   partialsel_unsel => sub {
 		       my ($unsel, $sel) = @_;
 		       @$sel = grep { exists $pkgs->{$_} } @$sel;
-		       @$unsel < @$sel;
+		       @$unsel <= @$sel;
 		   },
 		   toggle_nodes => sub {
 		       my ($set_state, @nodes) = @_;
-		       @nodes = grep { exists $pkgs->{$_} } @nodes;
-		       int(@nodes) or return;
+		       @nodes = grep { exists $pkgs->{$_} } @nodes
+			   or return;
 		       my $new_state = !$pkgs->{$nodes[0]}{selected};
 
 		       my @nodes_with_deps;