diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-08-28 10:27:05 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-08-28 10:27:11 -0400 |
| commit | 33abefb6467db92f88fc4820ee7b0739d1917ef5 (patch) | |
| tree | 1320a2418affffcc3be7c2624dedade78a401310 /urpm/orphans.pm | |
| parent | 309b6d6d7fbf972a69f3990f9592bcf7b3c77b16 (diff) | |
| download | urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.gz urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.bz2 urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.tar.xz urpmi-33abefb6467db92f88fc4820ee7b0739d1917ef5.zip | |
explain a little more
Diffstat (limited to 'urpm/orphans.pm')
| -rw-r--r-- | urpm/orphans.pm | 2 |
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; |