From 96e1e09fe5e0535ce05d02a0123c74ae88114d24 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Nov 2002 19:41:42 +0000 Subject: 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. --- perl-install/fsedit.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/fsedit.pm') 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]) ] }; } -- cgit v1.2.1