From afee874c6aedc31231371bc932126483da3a373c Mon Sep 17 00:00:00 2001
From: Christophe Fergeau <cfergeau@mandriva.com>
Date: Tue, 1 Dec 2009 15:58:59 +0000
Subject: can't rely on $::prefix to remove unused locale packages since this
 breaks locale detection

---
 perl-install/pkgs.pm | 4 ++--
 1 file 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),
 	);
-- 
cgit v1.2.1