diff options
| author | Christophe Fergeau <cfergeau@mandriva.com> | 2009-12-01 15:58:59 +0000 |
|---|---|---|
| committer | Christophe Fergeau <cfergeau@mandriva.com> | 2009-12-01 15:58:59 +0000 |
| commit | afee874c6aedc31231371bc932126483da3a373c (patch) | |
| tree | 81ddf28dcbd4d99781f15380565aeb1eb4dd0547 | |
| parent | 49fd6e3329aa392cd0f4c3cc865cdeac3164dee8 (diff) | |
| download | drakx-afee874c6aedc31231371bc932126483da3a373c.tar drakx-afee874c6aedc31231371bc932126483da3a373c.tar.gz drakx-afee874c6aedc31231371bc932126483da3a373c.tar.bz2 drakx-afee874c6aedc31231371bc932126483da3a373c.tar.xz drakx-afee874c6aedc31231371bc932126483da3a373c.zip | |
can't rely on $::prefix to remove unused locale packages since this breaks locale detection
| -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), ); |