introduce a new flag: getting_rid_of_readonly_allowed. It is set when the partition table

badly handled by diskdrake, but we are still allowed to wipe the partition table and start
with something new.

1 files changed, 1 insertions, 0 deletions

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 4c2c43316..c262bcd59 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -792,6 +792,7 @@ sub use_proc_partitions {
     log::l("using /proc/partitions since diskdrake failed :(");
     partition_table::raw::zero_MBR($hd);
     $hd->{readonly} = 1;
+    $hd->{getting_rid_of_readonly_allowed} = 1;
     $hd->{primary} = { normal => [ grep { $_->{rootDevice} eq $hd->{device} } read_proc_partitions([$hd]) ] };
 }