aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Resolve.pm6
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;