summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/do_pkgs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index 4de82a093..e4b9b0198 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -388,7 +388,8 @@ sub remove {
my $_wait = $do->in && $do->in->wait_message(N("Please wait"), N("Removing packages..."));
$do->in->suspend if $do->in;
log::explanations("removing packages @l");
- my $ret = system('rpm', '-e', @l) == 0;
+ my @wrapper = $::isLiveInstall && $::prefix ? ('chroot', $::prefix) : ();
+ my $ret = system(@wrapper, 'rpm', '-e', @l) == 0;
$do->in->resume if $do->in;
$ret;
}