aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-26 19:12:28 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-26 19:12:28 +0000
commit777718a5a4940097ffd5f227d190267d5080775a (patch)
treecd95667e618bcd4fa556f705c5391c00bf5217ab /URPM
parent3adc63e09bfc9e4065cb415f38602d7f209d893d (diff)
downloadperl-URPM-777718a5a4940097ffd5f227d190267d5080775a.tar
perl-URPM-777718a5a4940097ffd5f227d190267d5080775a.tar.gz
perl-URPM-777718a5a4940097ffd5f227d190267d5080775a.tar.bz2
perl-URPM-777718a5a4940097ffd5f227d190267d5080775a.tar.xz
perl-URPM-777718a5a4940097ffd5f227d190267d5080775a.zip
rename find_candidate_packages_() as find_candidate_packages()
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Resolve.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 536fe5d..16aaf0e 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -68,7 +68,7 @@ sub removed_or_obsoleted_packages {
#- (nb: see also find_required_package())
#-
#- side-effects: none
-sub find_candidate_packages_ {
+sub find_candidate_packages {
my ($urpm, $id_prop, $o_rejected) = @_;
my @packages;
@@ -186,7 +186,7 @@ sub provided_version_that_overlaps {
#- find the package (or packages) to install matching $id_prop
#- returns (list ref of matches, list ref of preferred matches)
-#- (see also find_candidate_packages_())
+#- (see also find_candidate_packages())
#-
#- side-effects: flag_install, flag_upgrade (and strict_arch_check_installed cache)
sub find_required_package {
@@ -573,7 +573,7 @@ sub backtrack_selected {
#- search for all possible packages, first is to try the selection, then if it is
#- impossible, backtrack the origin.
- my @packages = find_candidate_packages_($urpm, $dep->{required});
+ my @packages = find_candidate_packages($urpm, $dep->{required});
foreach (@packages) {
#- avoid dead loop.
@@ -936,7 +936,7 @@ sub resolve_requested__no_suggests {
foreach (keys %$requested) {
#- keep track of requested packages by propating the flag.
- foreach (find_candidate_packages_($urpm, $_)) {
+ foreach (find_candidate_packages($urpm, $_)) {
$_->set_flag_requested;
}
}
@@ -1263,7 +1263,7 @@ sub _handle_diff_provides {
#- try if upgrading the package will be satisfying all the requires...
#- there is no need to avoid promoting epoch as the package examined is not
#- already installed.
- my @packages = find_candidate_packages_($urpm, $p->name, $state->{rejected});
+ my @packages = find_candidate_packages($urpm, $p->name, $state->{rejected});
@packages =
grep { ($_->name eq $p->name ? $p->compare_pkg($_) < 0 :
$_->obsoletes_overlap($p->name . " == " . $p->epoch . ":" . $p->version . "-" . $p->release))
@@ -1283,7 +1283,7 @@ sub _handle_diff_provides {
#- there exists enough packages that provided the unsatisfied requires.
my @best;
foreach (@unsatisfied) {
- my @packages = find_candidate_packages_($urpm, $_, $state->{rejected});
+ my @packages = find_candidate_packages($urpm, $_, $state->{rejected});
if (@packages = grep { $_->fullname ne $p->fullname } @packages) {
push @best, join('|', map { $_->id } @packages);
}
@@ -1323,7 +1323,7 @@ sub _handle_conflict {
#- whether a newer version will be ok, else ask to remove the old.
my $need_deps = $p->name . " > " . ($p->epoch ? $p->epoch . ":" : "") .
$p->version . "-" . $p->release;
- my @packages = grep { $_->name eq $p->name } find_candidate_packages_($urpm, $need_deps, $state->{rejected});
+ my @packages = grep { $_->name eq $p->name } find_candidate_packages($urpm, $need_deps, $state->{rejected});
@packages = grep { ! $_->provides_overlap($property) } @packages;
if (!@packages) {