diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-07-31 19:17:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-07-31 19:17:23 +0000 |
| commit | 69dd828cf65886ada7ede22c495d14f84c8c593a (patch) | |
| tree | 0cbd9edf9a6453e9b8c7d7eb9618dfee54ea8c9f /perl-install/fsedit.pm | |
| parent | 1fcb9d98f6f5069c77db9769993a77936f7d4519 (diff) | |
| download | drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.gz drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.bz2 drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.xz drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.zip | |
no_comment
Diffstat (limited to 'perl-install/fsedit.pm')
| -rw-r--r-- | perl-install/fsedit.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 599a7af5e..5df4cb109 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -64,11 +64,14 @@ sub hds($$) { # for RAID arrays of format c0d0p1 $hd->{prefix} .= "p" if $hd->{prefix} =~ m,(rd|ida)/,; - eval { partition_table::read($hd, $flags->{clearall}) }; + eval { partition_table::read($hd, $flags->{clearall} || member($_->{device}, @{$flags->{clear} || []})) }; if ($@) { cdie($@) unless $flags->{eraseBadPartitions}; partition_table_raw::zero_MBR($hd); } + member($_->{device}, @{$flags->{clear} || []}) and partition_table::remove($hd, $_) + foreach partition_table::get_normal_parts($hd); + #- special case for type overloading (eg: reiserfs is 0x183) foreach (grep { isExt2($_) } partition_table::get_normal_parts($hd)) { my $type = typeOfPart($_->{device}); |