diff options
Diffstat (limited to 'urpm/orphans.pm')
| -rw-r--r-- | urpm/orphans.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 2682f1aa..7aa6e790 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -355,15 +355,14 @@ sub _get_orphan_kernels() { #- #- side-effects: none sub _all_unrequested_orphans { - my ($req, $unreq) = @_; + my ($urpm, $req, $unreq) = @_; my (%l, %provides); foreach my $pkg (@$unreq) { $l{$pkg->name} = $pkg; push @{$provides{$_}}, $pkg foreach $pkg->provides_nosense; } - # (tv) FIXME: this won't work when chrooted: - my $unreq_list = unrequested_list(); + my $unreq_list = unrequested_list($urpm); my $current_kernel = _get_current_kernel_package(); @@ -413,7 +412,7 @@ sub compute_future_unrequested_orphans { my ($unreq, $req) = partition { $unrequested->{$_->name} } @pkgs; - $state->{orphans_to_remove} = _all_unrequested_orphans($req, $unreq); + $state->{orphans_to_remove} = _all_unrequested_orphans($urpm, $req, $unreq); # nb: $state->{orphans_to_remove} is used when computing ->selected_size } @@ -429,7 +428,7 @@ sub get_orphans { $urpm->{log}("computing unrequested orphans"); my ($req, $unreq) = _installed_req_and_unreq($urpm); - _all_unrequested_orphans($req, $unreq); + _all_unrequested_orphans($urpm, $req, $unreq); } sub _get_now_orphans_raw_msg { |