summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-18 21:05:17 +0000
commitdd40621fa1311c9bce97902e2db57f8b15fab449 (patch)
tree021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/fsedit.pm
parent61e87a9fb56f97ae843557511ba3609f9849cc2e (diff)
downloaddrakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.gz
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.bz2
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.xz
drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.zip
*** empty log message ***
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index aaef30baf..8e511c8b9 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -183,6 +183,10 @@ sub allocatePartitions($$) {
sub auto_allocate($;$) {
my ($hds, $suggestions) = @_;
- allocatePartitions($hds, $suggestions || \@suggestions);
+ my %mntpoints; map { $mntpoints{$_->{mntpoint}} = 1 } get_fstab(@$hds);
+ allocatePartitions($hds, [
+ grep { ! $mntpoints{$_->{mntpoint}} }
+ @{ $suggestions || \@suggestions }
+ ]);
map { partition_table::assign_device_numbers($_) } @$hds;
}