From 595e889a7bde73cd3be922fd0757e8f7b47b10d8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 31 Aug 2000 21:33:25 +0000 Subject: no_comment --- perl-install/install_any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 7fccfb7a2..dc658be44 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -631,7 +631,7 @@ sub suggest_mount_points { $part->{mntpoint} = $mnt; #- try to find other mount points via fstab - fs::get_mntpoints_from_fstab(\@parts, $d) if $mnt eq '/'; + fs::get_mntpoints_from_fstab(\@parts, $d, $uniq) if $mnt eq '/'; } #- $_->{mntpoint} || fsedit::suggest_part($_, $hds) foreach @parts; @@ -649,7 +649,7 @@ sub use_root_part { my ($fstab, $part, $prefix) = @_; { my $handle = any::inspect($part, $prefix) or die; - fs::get_mntpoints_from_fstab($fstab, $handle->{dir}); + fs::get_mntpoints_from_fstab($fstab, $handle->{dir}, 'uniq'); } map { $_->{mntpoint} = 'swap_upgrade' } grep { isSwap($_) } @$fstab; #- use all available swap. -- cgit v1.2.1