diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-12 15:13:53 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-12 15:13:53 +0000 |
commit | 26e72505b596fe83a0c466051e67444d125d42a3 (patch) | |
tree | e638be5cb91466fbb478a7ead71ef2b51f564480 /URPM/Resolve.pm | |
parent | e219751ba419685eb00f67da6c7256afb526fb82 (diff) | |
download | perl-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
Diffstat (limited to 'URPM/Resolve.pm')
-rw-r--r-- | URPM/Resolve.pm | 8 |
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 |