summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristophe Fergeau <cfergeau@mandriva.com>2009-12-01 18:08:43 +0000
committerChristophe Fergeau <cfergeau@mandriva.com>2009-12-01 18:08:43 +0000
commit96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc (patch)
tree65a5fe45efcf53d5591054b654774e3271d81a71 /perl-install
parent1bab9dd1d5e29966dcddb97d5ff6404cd29fa424 (diff)
downloaddrakx-96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc.tar
drakx-96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc.tar.gz
drakx-96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc.tar.bz2
drakx-96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc.tar.xz
drakx-96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc.zip
don't use $::prefix to remove unused packages
If we do that, it will mess with the locale detection. Use a separate variable for the prefix where to run urpme from, and use the normal $::prefix for the rest of the code
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index a0419858b..2122b117d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -246,7 +246,7 @@ sub detect_unselected_locale_packages {
}
sub remove_unused_packages {
- my ($in, $do_pkgs) = @_;
+ my ($in, $do_pkgs, $o_prefix) = @_;
my $wait;
$wait = $in->wait_message(N("Unused packages removal"), N("Finding unused hardware packages..."));
@@ -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::rooted($::prefix, 'urpme', '--auto',
+ run_program::rooted($o_prefix, 'urpme', '--auto',
if_($hardware, @unused_hardware_packages),
if_($locales, @unselected_locales),
);