diff options
| author | Christophe Fergeau <cfergeau@mandriva.com> | 2009-11-30 14:53:26 +0000 |
|---|---|---|
| committer | Christophe Fergeau <cfergeau@mandriva.com> | 2009-11-30 14:53:26 +0000 |
| commit | 33d6a389be59b1e3cbb0d76f0d12c24b8245fa39 (patch) | |
| tree | ba1aefa8f42d466115b6e1defdf2b33ae1fbb548 /perl-install/pkgs.pm | |
| parent | 328b3472f726cf029237af00bd703caeb200f928 (diff) | |
| download | drakx-33d6a389be59b1e3cbb0d76f0d12c24b8245fa39.tar drakx-33d6a389be59b1e3cbb0d76f0d12c24b8245fa39.tar.gz drakx-33d6a389be59b1e3cbb0d76f0d12c24b8245fa39.tar.bz2 drakx-33d6a389be59b1e3cbb0d76f0d12c24b8245fa39.tar.xz drakx-33d6a389be59b1e3cbb0d76f0d12c24b8245fa39.zip | |
use ::prefix when removing unneeded packages
This is necessary for draklive-install on the Flash which does not
copy / to the hard disk but a subdirectory. If we don't take ::prefix
into account, we won't clean what we are about to install but the
currently running system.
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 057fcec78..a0419858b 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -279,7 +279,7 @@ sub remove_unused_packages { #- we should have some gurpme $wait = $in->wait_message(N("Please wait"), N("Removing packages...")); - run_program::run('urpme', '--auto', + run_program::rooted($::prefix, 'urpme', '--auto', if_($hardware, @unused_hardware_packages), if_($locales, @unselected_locales), ); |