diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 17:49:53 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-07 17:49:53 +0000 |
commit | 9ea3a8cea53cacffc0527966646b26bc1f90ad45 (patch) | |
tree | 9364ee2e5a58e6a447efd9ea66f0d3f250a3cc00 | |
parent | b33e1690576f486c44640f9b20c44b66293ffca7 (diff) | |
download | perl-URPM-9ea3a8cea53cacffc0527966646b26bc1f90ad45.tar perl-URPM-9ea3a8cea53cacffc0527966646b26bc1f90ad45.tar.gz perl-URPM-9ea3a8cea53cacffc0527966646b26bc1f90ad45.tar.bz2 perl-URPM-9ea3a8cea53cacffc0527966646b26bc1f90ad45.tar.xz perl-URPM-9ea3a8cea53cacffc0527966646b26bc1f90ad45.zip |
simplify: nopromoteepoch is always 1 (no caller ever define it)
-rw-r--r-- | URPM/Resolve.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index fc4200e..b124d8a 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -25,7 +25,6 @@ sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ } sub find_candidate_packages { my ($urpm, $dep, %options) = @_; my %packages; - $options{nopromoteepoch} = 1 unless defined $options{nopromoteepoch}; foreach (split /\|/, $dep) { if (/^\d+$/) { @@ -41,7 +40,7 @@ sub find_candidate_packages { $pkg->is_arch_compat or next; $options{avoided} && exists $options{avoided}{$pkg->fullname} and next; #- check if at least one provide of the package overlap the property. - !$urpm->{provides}{$name}{$_} || $pkg->provides_overlap($property, $options{nopromoteepoch}) + !$urpm->{provides}{$name}{$_} || $pkg->provides_overlap($property, 1) and push @{$packages{$pkg->name}}, $pkg; } } @@ -231,7 +230,6 @@ sub whatrequires_id { sub unsatisfied_requires { my ($urpm, $db, $state, $pkg, %options) = @_; my %properties; - $options{nopromoteepoch} = 1 unless defined $options{nopromoteepoch}; #- all requires should be satisfied according to selected packages or installed packages, #- or the package itself. @@ -253,7 +251,7 @@ sub unsatisfied_requires { foreach (keys %{$urpm->{provides}{$n} || {}}) { my $p = $urpm->{depslist}[$_]; exists $state->{selected}{$_} or next; - !$urpm->{provides}{$n}{$_} || $p->provides_overlap($dep, $options{nopromoteepoch}) and next REQUIRES; + !$urpm->{provides}{$n}{$_} || $p->provides_overlap($dep, 1) and next REQUIRES; } #- check if the package itself provides what is necessary. @@ -276,7 +274,7 @@ sub unsatisfied_requires { if (my ($pn, $ps) = /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/) { $ps or $state->{cached_installed}{$pn}{$p->fullname} = undef; $pn eq $n or next; - ranges_overlap($ps, $s, $options{nopromoteepoch}) and ++$satisfied; + ranges_overlap($ps, $s, 1) and ++$satisfied; } } }); |