From dd40621fa1311c9bce97902e2db57f8b15fab449 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 18 Jul 1999 21:05:17 +0000
Subject: *** empty log message ***

---
 perl-install/fsedit.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/fsedit.pm')

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;
 }
-- 
cgit v1.2.1