diff options
| -rw-r--r-- | urpm/orphans.pm | 6 | ||||
| -rw-r--r-- | urpm/xml_info_pkg.pm | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 9db0c1ef..5999de61 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -255,7 +255,7 @@ sub _unrequested_orphans_after_remove_once { $db->traverse_tag('name', [ $n ], sub { my ($p) = @_; $p->fullname eq $fn or return; - push @requires, $p->requires, $p->suggests; + push @requires, $p->requires, $p->recommends_nosense; }); } @@ -420,7 +420,7 @@ sub _all_unrequested_orphans { while (my $pkg = shift @$req) { # do not do anything regarding kernels if we failed to detect the running one (ie: chroot) _kernel_callback($pkg, $unreq_list) if $current_kernel; - foreach my $prop ($pkg->requires, $pkg->suggests) { + foreach my $prop ($pkg->requires, $pkg->recommends_nosense) { my $n = URPM::property2name($prop); foreach my $p (@{$provides{$n} || []}) { if ($p != $pkg && $l{$p->name} && $p->provides_overlap($prop)) { @@ -577,7 +577,7 @@ sub installed_leaves { } foreach my $pkg (@$packages) { - foreach my $prop ($pkg->requires, $pkg->suggests) { + foreach my $prop ($pkg->requires, $pkg->recommends_nosense) { my $n = URPM::property2name($prop); foreach my $p (@{$provides{$n} || []}) { $p != $pkg && $p->provides_overlap($prop) and diff --git a/urpm/xml_info_pkg.pm b/urpm/xml_info_pkg.pm index cd6ca9e6..bacc8d1c 100644 --- a/urpm/xml_info_pkg.pm +++ b/urpm/xml_info_pkg.pm @@ -56,7 +56,7 @@ sub conflicts { $_[0]{pkg}->conflicts } sub obsoletes { $_[0]{pkg}->obsoletes } sub provides { $_[0]{pkg}->provides } sub requires { $_[0]{pkg}->requires } -sub suggests { $_[0]{pkg}->suggests } +sub suggests { $_[0]{pkg}->recommends_nosense } =item url($pkg) |