diff options
Diffstat (limited to 'perl-install/partition_table/dos.pm')
| -rw-r--r-- | perl-install/partition_table/dos.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm index c56cdab31..69566aaa8 100644 --- a/perl-install/partition_table/dos.pm +++ b/perl-install/partition_table/dos.pm @@ -278,6 +278,14 @@ sub end_write { close $F; } +sub need_to_tell_kernel { + my ($hd) = @_; + # If none of the partitions are mounted, the kernel will automatically rescan + # the partition table. If any partitions are mounted, this doesn't happen, so + # we need to tell the kernel what has changed. + return any { $_->{isMounted} } partition_table::get_normal_parts($hd); +} + sub empty_raw { { raw => [ ({}) x $nb_primary ] } } sub initialize { |