summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-31 19:17:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-31 19:17:23 +0000
commit69dd828cf65886ada7ede22c495d14f84c8c593a (patch)
tree0cbd9edf9a6453e9b8c7d7eb9618dfee54ea8c9f /perl-install/fsedit.pm
parent1fcb9d98f6f5069c77db9769993a77936f7d4519 (diff)
downloaddrakx-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.pm5
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});