aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-12 15:13:53 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-12 15:13:53 +0000
commit26e72505b596fe83a0c466051e67444d125d42a3 (patch)
treee638be5cb91466fbb478a7ead71ef2b51f564480
parente219751ba419685eb00f67da6c7256afb526fb82 (diff)
downloadperl-URPM-26e72505b596fe83a0c466051e67444d125d42a3.tar
perl-URPM-26e72505b596fe83a0c466051e67444d125d42a3.tar.gz
perl-URPM-26e72505b596fe83a0c466051e67444d125d42a3.tar.bz2
perl-URPM-26e72505b596fe83a0c466051e67444d125d42a3.tar.xz
perl-URPM-26e72505b596fe83a0c466051e67444d125d42a3.zip
Minor comment fixes
-rw-r--r--URPM/Resolve.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 81411f8..0c18dbb 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -649,7 +649,7 @@ sub resolve_requested {
#- be upgraded to a new version which will be safe, else it should be removed.
foreach ($pkg->conflicts) {
@keep and last;
- #- propagate conflicts to avoided.
+ #- propagate conflicts to avoid
if (my ($n, $o, $v) = /^([^\s\[]*)(?:\[\*\])?\s*\[?([^\s\]]*)\s*([^\s\]]*)/) {
foreach (keys %{$urpm->{provides}{$n} || {}}) {
my $p = $urpm->{depslist}[$_];
@@ -681,7 +681,7 @@ sub resolve_requested {
if ($p->provides_overlap($property)) {
#- the existing package will conflict with the selection; check
#- whether a newer version will be ok, else ask to remove the old.
- my $need_deps = $p->name . " > " . ($p->epoch ? $p->epoch.":" : "") .
+ my $need_deps = $p->name . " > " . ($p->epoch ? $p->epoch . ":" : "") .
$p->version . "-" . $p->release;
my $packages = $urpm->find_candidate_packages($need_deps, avoided => $state->{rejected});
my $best = join '|', map { $_->id }
@@ -807,7 +807,7 @@ sub disable_selected {
#- keep a trace of what is deselected.
push @unselected, $pkg;
- #- do a closure on rejected packages (removed, obsoleted or avoided).
+ #- perform a closure on rejected packages (removed, obsoleted or avoided).
my @closure_rejected = scalar $pkg->fullname;
while (my $fullname = shift @closure_rejected) {
my @rejecteds = keys %{$state->{rejected}};
@@ -957,7 +957,7 @@ sub compute_flag {
#- disable_obsolete : if true, set the 'disable_obsolete' flag
sub compute_flags {
my ($urpm, $val, %options) = @_;
- if (ref $val eq 'HASH') { $val = [ keys %$val ] }; #- compatibility with urpmi <= 4.5-13mdk
+ if (ref $val eq 'HASH') { $val = [ keys %$val ] } #- compatibility with urpmi <= 4.5-13mdk
my @regex;
#- unless a regular expression is given, search in provides