diff options
| -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), ); |