fix remove_unused_packages when the tree to install is not /

1 files 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);
 }