From 57750edf1ccf9a71871bf6e746df5ad868a7a92e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 10 Jul 2008 18:26:17 +0000 Subject: o fix creation of chroot with --root by using /var/lib/rpm/installed-through-deps.list (instead of having it in /var/lib/urpmi) it's a saner place to put this file anyway --- urpm/orphans.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'urpm') diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 99368c1e..766154a0 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -25,7 +25,7 @@ sub installed_packages_packed { #- side-effects: none sub unrequested_list__file { my ($urpm) = @_; - "$urpm->{root}/var/lib/urpmi/installed-through-deps.list"; + "$urpm->{root}/var/lib/rpm/installed-through-deps.list"; } #- side-effects: none sub unrequested_list { @@ -38,21 +38,21 @@ sub unrequested_list { } #- side-effects: -#- + those of _installed_req_and_unreq_and_update_unrequested_list (/var/lib/urpmi/installed-through-deps.list) +#- + those of _installed_req_and_unreq_and_update_unrequested_list (/var/lib/rpm/installed-through-deps.list) sub _installed_req_and_unreq { my ($urpm) = @_; my ($req, $unreq, $_unrequested) = _installed_req_and_unreq_and_update_unrequested_list($urpm); ($req, $unreq); } #- side-effects: -#- + those of _installed_req_and_unreq_and_update_unrequested_list (/var/lib/urpmi/installed-through-deps.list) +#- + those of _installed_req_and_unreq_and_update_unrequested_list (/var/lib/rpm/installed-through-deps.list) sub _installed_and_unrequested_lists { my ($urpm) = @_; my ($pkgs, $pkgs2, $unrequested) = _installed_req_and_unreq_and_update_unrequested_list($urpm); push @$pkgs, @$pkgs2; ($pkgs, $unrequested); } -#- side-effects: /var/lib/urpmi/installed-through-deps.list +#- side-effects: /var/lib/rpm/installed-through-deps.list sub _installed_req_and_unreq_and_update_unrequested_list { my ($urpm) = @_; @@ -112,7 +112,7 @@ sub _new_unrequested { _renamed_unrequested($urpm, $state->{rejected}), ); } -#- side-effects: /var/lib/urpmi/installed-through-deps.list +#- side-effects: /var/lib/rpm/installed-through-deps.list sub add_unrequested { my ($urpm, $state) = @_; @@ -262,7 +262,7 @@ sub _all_unrequested_orphans { #- side-effects: $state->{orphans_to_remove} -#- + those of _installed_and_unrequested_lists (/var/lib/urpmi/installed-through-deps.list) +#- + those of _installed_and_unrequested_lists (/var/lib/rpm/installed-through-deps.list) sub compute_future_unrequested_orphans { my ($urpm, $state) = @_; @@ -287,7 +287,7 @@ sub compute_future_unrequested_orphans { #- (using installed_packages_packed()) # #- side-effects: -#- + those of _installed_req_and_unreq (/var/lib/urpmi/installed-through-deps.list) +#- + those of _installed_req_and_unreq (/var/lib/rpm/installed-through-deps.list) sub get_orphans { my ($urpm) = @_; -- cgit v1.2.1