diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-03-25 18:38:06 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-05 16:54:48 +0100 |
| commit | 347650d34d81371d4af138f0b26207a5ba641945 (patch) | |
| tree | 96864f59a234926cbe8066fdef26b77a38f617e3 | |
| parent | 53abfe6c8cb4a9087bbe90e056126a9692001c04 (diff) | |
| download | perl-URPM-347650d34d81371d4af138f0b26207a5ba641945.tar perl-URPM-347650d34d81371d4af138f0b26207a5ba641945.tar.gz perl-URPM-347650d34d81371d4af138f0b26207a5ba641945.tar.bz2 perl-URPM-347650d34d81371d4af138f0b26207a5ba641945.tar.xz perl-URPM-347650d34d81371d4af138f0b26207a5ba641945.zip | |
(listlength) get rid of it
| -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; |