From 6d2a07cf19c31c9cf1453c8bb3d09f83c1c59e1e Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 13 Jul 2004 08:35:17 +0000 Subject: Avoid to select an entire subtree. Works around bug #9941. --- rpmdrake | 6 +++--- 1 file 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; -- cgit v1.2.1