summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-08-28 10:27:05 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-08-28 10:27:11 -0400
commit33abefb6467db92f88fc4820ee7b0739d1917ef5 (patch)
tree1320a2418affffcc3be7c2624dedade78a401310
parent309b6d6d7fbf972a69f3990f9592bcf7b3c77b16 (diff)
downloadurpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar
urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.gz
urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.bz2
urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.xz
urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.zip
explain a little more
-rw-r--r--urpm/orphans.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 75980386..71c33723 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -494,6 +494,7 @@ sub _all_unrequested_orphans {
my ($urpm, $req, $unreq) = @_;
my (%l, %provides);
+ # 1- list explicit provides (not files) from installed packages:
foreach my $pkg (@$unreq) {
$l{$pkg->name} = $pkg;
push @{$provides{$_}}, $pkg foreach $pkg->provides_nosense;
@@ -502,6 +503,7 @@ sub _all_unrequested_orphans {
my ($current_kernel_version, $current_kernel) = _get_current_kernel_package();
+ # 2- check if "unrequested" packages are still needed:
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;