summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-02-27 17:44:12 +0000
committerThierry Vignaud <tv@mageia.org>2013-02-27 17:44:12 +0000
commitb4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede (patch)
tree9a9b9fc11c1fe2c1c6f0577fbea9c4a569c360c8 /perl-install
parentc1f47ed94d4d92821f72c73851824b7582179a21 (diff)
downloaddrakx-b4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede.tar
drakx-b4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede.tar.gz
drakx-b4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede.tar.bz2
drakx-b4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede.tar.xz
drakx-b4fa6ee6ef4e9b54f347abe6c54a4a3dff4b5ede.zip
(install_grub2) simplify (factorize a variable)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 44e85e635..5c89d055b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2008,8 +2008,9 @@ sub install_grub2 {
my ($bootloader, $all_hds) = @_;
my $error;
write_grub2($bootloader, $all_hds);
- run_program::rooted($::prefix, 'grub2-install', '2>', \$error, $bootloader->{boot}) or die "grub2-install failed: $error";
- setVarsInSh("$::prefix/boot/grub2/drakboot.conf", { boot => $bootloader->{boot} });
+ my $boot = $bootloader->{boot}
+ run_program::rooted($::prefix, 'grub2-install', '2>', \$error, $boot) or die "grub2-install failed: $error";
+ setVarsInSh("$::prefix/boot/grub2/drakboot.conf", { boot => $boot });
}
sub install_grub {