diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/do_pkgs.pm | 3 |
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; } |