diff options
| -rw-r--r-- | URPM/Resolve.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 1c2d43f..ab07ebe 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -16,10 +16,6 @@ sub any(&@) { $f->($_) and return 1 foreach @_; 0; } -sub listlength { - my (@l) = @_; - scalar @l; -} sub uniq { my (@l) = @_; my %l; @@ -1984,7 +1980,7 @@ sub build_transaction_set { #- check that the transaction set has been correctly created. #- (ie that no other package was removed) if (keys(%{$state->{selected}}) == keys(%{$state->{transaction_state}{selected}}) && - listlength(packages_to_remove($state)) == listlength(packages_to_remove($state->{transaction_state})) + scalar(packages_to_remove($state)) == scalar(packages_to_remove($state->{transaction_state})) ) { foreach (keys(%{$state->{selected}})) { exists $state->{transaction_state}{selected}{$_} and next; |