summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristophe Fergeau <cfergeau@mandriva.com>2009-11-30 14:53:26 +0000
committerChristophe Fergeau <cfergeau@mandriva.com>2009-11-30 14:53:26 +0000
commit33d6a389be59b1e3cbb0d76f0d12c24b8245fa39 (patch)
treeba1aefa8f42d466115b6e1defdf2b33ae1fbb548 /perl-install
parent328b3472f726cf029237af00bd703caeb200f928 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/pkgs.pm2
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index d5255d96d..fa2b092e5 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- bugfix for draklive-install: use ::prefix in pkgs::remove_unused_packages
- devices detection:
o fix reading USB details (#55690)
o fix SCSI driver module name
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),
);