From 5b064eba588ce091f942c9379310ad2fca40b7c2 Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Mon, 30 Nov 2009 13:56:43 +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 | 4 ++++ perl-install/pkgs.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 5850afa35..63b85dd61 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +Version 12.77.2 - 30 November 2009 + +- bugfix for draklive-install: use ::prefix in pkgs::remove_unused_packages + Version 12.77.1 - 18 November 2009 - bootloader-config: 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