diff options
| author | Christophe Fergeau <cfergeau@mandriva.com> | 2009-12-01 18:08:43 +0000 |
|---|---|---|
| committer | Christophe Fergeau <cfergeau@mandriva.com> | 2009-12-01 18:08:43 +0000 |
| commit | 96ec3a39a0f8f9e9ca55bd1073cea242ab0b2adc (patch) | |
| tree | 65a5fe45efcf53d5591054b654774e3271d81a71 /perl-install | |
| parent | 1bab9dd1d5e29966dcddb97d5ff6404cd29fa424 (diff) | |
| download | drakx-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.pm | 4 |
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), ); |