diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index d6a384d0a..4cd2be611 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1274,11 +1274,6 @@ sub grub2file { sub write_grub { my ($bootloader, $all_hds) = @_; - { - my @files = grep { /(stage1|stage2|_stage1_5)$/ } glob("$::prefix/lib/grub/*/*"); - cp_af(@files, "$::prefix/boot/grub"); - } - my $fstab = [ fs::get::fstab($all_hds) ]; my @legacy_floppies = detect_devices::floppies(); my @sorted_hds = sort_hds_according_to_bios($bootloader, $all_hds); @@ -1385,7 +1380,11 @@ sub install_grub { write_grub($bootloader, $all_hds); - install_raw_grub() if !$::testing; + if (!$::testing) { + my @files = grep { /(stage1|stage2|_stage1_5)$/ } glob("$::prefix/lib/grub/*/*"); + cp_af(@files, "$::prefix/boot/grub"); + install_raw_grub() + } configure_kdm_BootManager('Grub'); } |