diff options
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; } |