From 33abefb6467db92f88fc4820ee7b0739d1917ef5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 28 Aug 2015 10:27:05 -0400
Subject: explain a little more

---
 urpm/orphans.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'urpm')

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;
-- 
cgit v1.2.1