diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | URPM.pm | 4 | ||||
| -rw-r--r-- | URPM.xs | 1 | ||||
| -rw-r--r-- | URPM/Resolve.pm | 4 |
4 files changed, 6 insertions, 4 deletions
@@ -1,5 +1,6 @@ - make it compatible with rpm-4.12.0 - use new recommends tags instead of suggests ones +- rename "suggests" method as "recommends_nosense" Version 4.31 - 27 June 2014 @@ -735,7 +735,7 @@ Just the obsoleted package name. If a header is associated with the package, fill the package fields from the header's tags (NEVRA, -requires/suggests/obsoletes/conflicts/provides/summary) +requires/recommends/obsoletes/conflicts/provides/summary) then free the header It's useful when traversing the rpm DB, if one wants to keep around a @@ -771,7 +771,7 @@ Full requires tags Just the required package name. -=item $package->suggests() +=item $package->recommends_nosense() =item $package->rflags() @@ -1862,6 +1862,7 @@ Pkg_obsoletes_nosense(pkg) conflicts_nosense = 1 provides_nosense = 2 requires_nosense = 3 + recommends_nosense= 4 suggests = 4 PPCODE: PUTBACK; diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 690d7c5..0a8e3ed 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -1114,12 +1114,12 @@ sub resolve_requested_suggests { my @todo = @$selected; while (@todo) { my $pkg = shift @todo; - my %suggests = map { $_ => 1 } $pkg->suggests or next; + my %suggests = map { $_ => 1 } $pkg->recommends_nosense or next; #- do not install a package that has already been suggested $db->traverse_tag_find('name', $pkg->name, sub { my ($p) = @_; - delete $suggests{$_} foreach $p->suggests; + delete $suggests{$_} foreach $p->recommends_nosense; }); # workaround: if you do "urpmi virtual_pkg" and one virtual_pkg is already installed, |