summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {