summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm12
-rw-r--r--perl-install/install/NEWS1
2 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0976f1678..60e473e86 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1642,6 +1642,17 @@ sub configure_kdm_BootManager {
)) };
}
+sub sync_partition_data_to_disk {
+ my ($part) = @_;
+
+ common::sync();
+
+ if ($part->{fs_type} eq 'xfs') {
+ run_program::rooted($::prefix, 'xfs_freeze', '-f', $part->{mntpoint});
+ run_program::rooted($::prefix, 'xfs_freeze', '-u', $part->{mntpoint});
+ }
+}
+
sub install_grub {
my ($bootloader, $all_hds) = @_;
@@ -1650,6 +1661,7 @@ sub install_grub {
if (!$::testing) {
my @files = grep { /(stage1|stage2|_stage1_5)$/ } glob("$::prefix/lib/grub/*/*");
cp_af(@files, "$::prefix/boot/grub");
+ sync_partition_data_to_disk(fs::get::root([ fs::get::fstab($all_hds) ], 'boot'));
install_raw_grub();
}
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2c145b928..51dc386f9 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
- do not configure "windows" bootloader entries for "hidden" partitions
- fix unwrapped label (#33243)
+- fix grub hanging if /boot on xfs (#33267)
Version 10.4.191 - 5 September 2007, by Thierry Vignaud