diff options
Diffstat (limited to 'perl-install/do_pkgs.pm')
| -rw-r--r-- | perl-install/do_pkgs.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index a8ea89e1e..0640d0908 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -333,15 +333,16 @@ sub install { return 1; } + my @wrapper = is_mgalive() ? qw(chroot /mnt) : (); my @options = ('--allow-medium-change', '--auto', '--no-verify-rpm', '--expect-install', @l); my $ret; if (check_for_xserver() && -x '/usr/bin/gurpmi') { - $ret = system('gurpmi', @options) == 0; + $ret = system(@wrapper, 'gurpmi', @options) == 0; } else { my $_wait = $do->in && $do->in->wait_message(N("Please wait"), N("Installing packages...")); $do->in->suspend if $do->in; log::explanations("installing packages @l"); - $ret = system('urpmi', @options) == 0; + $ret = system(@wrapper, 'urpmi', @options) == 0; $do->in->resume if $do->in; } $ret; |