aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-03-25 18:38:06 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-05 16:54:48 +0100
commit347650d34d81371d4af138f0b26207a5ba641945 (patch)
tree96864f59a234926cbe8066fdef26b77a38f617e3 /URPM
parent53abfe6c8cb4a9087bbe90e056126a9692001c04 (diff)
downloadperl-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
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;