From 33d6a389be59b1e3cbb0d76f0d12c24b8245fa39 Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Mon, 30 Nov 2009 14:53:26 +0000 Subject: 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. --- perl-install/NEWS | 1 + perl-install/pkgs.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') 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), ); -- cgit v1.2.1