diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
commit | dd40621fa1311c9bce97902e2db57f8b15fab449 (patch) | |
tree | 021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/fsedit.pm | |
parent | 61e87a9fb56f97ae843557511ba3609f9849cc2e (diff) | |
download | drakx-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.pm | 6 |
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; } |