summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-06 19:34:57 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-05-06 19:35:02 +0200
commitebce08681c86f8106331ab4ba56871ef6d811dc2 (patch)
tree77bc15a84564b4e260110f642c973ed0e3b7cc94
parent1e9ac30cf4db720a18019e55403ff867a6f5cf18 (diff)
downloaddrakx-ebce08681c86f8106331ab4ba56871ef6d811dc2.tar
drakx-ebce08681c86f8106331ab4ba56871ef6d811dc2.tar.gz
drakx-ebce08681c86f8106331ab4ba56871ef6d811dc2.tar.bz2
drakx-ebce08681c86f8106331ab4ba56871ef6d811dc2.tar.xz
drakx-ebce08681c86f8106331ab4ba56871ef6d811dc2.zip
perl_checker cleanup
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e8d7d1973..1088c4e43 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2013,12 +2013,10 @@ sub restore_previous_MBR_bootloader {
sub install_grub2 {
my ($bootloader, $all_hds) = @_;
write_grub2($bootloader, $all_hds);
- my $boot = $bootloader->{boot};
- install_raw_grub2($boot);
+ install_raw_grub2();
}
-sub install_raw_grub2 {
- my ($boot) = @_;
+sub install_raw_grub2() {
my $error;
my $f = '/boot/grub2/install.sh';
if (!run_program::rooted($::prefix, "sh", "2>", \$error, $f)) {