From 347650d34d81371d4af138f0b26207a5ba641945 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 25 Mar 2013 18:38:06 +0100 Subject: (listlength) get rid of it --- URPM/Resolve.pm | 6 +----- 1 file changed, 1 insertion(+), 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; -- cgit v1.2.1