From ce3d76402238df340a784d56b49a7790e5405aba Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 24 Aug 2001 12:41:59 +0000
Subject: (write): unmount+remount real_mntpoint before doing the kernel_read

---
 perl-install/partition_table.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 0df607094..4bcfe70ea 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -541,7 +541,15 @@ sub write {
     #- now sync disk and re-read the partition table
     if ($hd->{needKernelReread}) {
 	common::sync();
+
+	my @magic_parts = grep { $_->{isMounted} && $_->{real_mntpoint} } get_normal_parts($hd);
+	foreach (@magic_parts) {
+	    syscall_('umount', $_->{real_mntpoint}) or die _("error unmounting %s: %s", $_->{real_mntpoint}, "$!");
+	}
 	$hd->kernel_read;
+	foreach (@magic_parts) {
+	    syscall_('mount', , $_->{real_mntpoint}, type2fs($_), c::MS_MGC_VAL()) or die _("mount failed: ") . "$!";
+	}
 	$hd->{needKernelReread} = 0;
     }
 }
-- 
cgit v1.2.1