From 7046a6f83d5ee849c66aba3daaa01bcd937f7540 Mon Sep 17 00:00:00 2001
From: Christophe Fergeau <cfergeau@mandriva.com>
Date: Wed, 13 Jan 2010 15:50:00 +0000
Subject: fix remove_unused_packages when the tree to install is not /

---
 draklive-install | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/draklive-install b/draklive-install
index 3a7573f..c6870a1 100755
--- a/draklive-install
+++ b/draklive-install
@@ -56,7 +56,6 @@ sub install_live() {
     my %settings = getVarsFromSh($system_file);
 
     my $copy_source = $settings{SOURCE} || '/';
-    local $::prefix = $copy_source;
     my $live_media = '/live/media';
 
     display_start_message();
@@ -185,8 +184,13 @@ sub ask_partitions {
 }
 
 sub remove_unused_packages {
-    my ($in) = @_;
+    my ($in, $o_prefix) = @_;
     require pkgs;
+    #in remove_unused_packages, we want to get the locale from the currently
+    #running system, but we want to remove unused packages from the 
+    #system based in $o_prefix, that's why we use an extra arg instead of 
+    #directly using $::prefix
+    local $::prefix;
     pkgs::remove_unused_packages($in, $in->do_pkgs, $o_prefix);
 }
 
-- 
cgit v1.2.1