From 03bc6a6d53521054e42b6c43352fbd00ed285c6c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 7 Jan 2015 01:13:50 +0100 Subject: install packages in chroot when in mgalive mode --- perl-install/do_pkgs.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/do_pkgs.pm') 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; -- cgit v1.2.1