summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-11-06 19:18:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-11-06 19:18:14 +0000
commitf74a99cba417f0bd28d3bad626a4666eeecebf74 (patch)
treea37a61a2f0fb9df12566920fa6bb325914a8f009 /perl-install
parent5760b0624e1023dd3b43f8ac6790915c2a2bde62 (diff)
downloaddrakx-backup-do-not-use-f74a99cba417f0bd28d3bad626a4666eeecebf74.tar
drakx-backup-do-not-use-f74a99cba417f0bd28d3bad626a4666eeecebf74.tar.gz
drakx-backup-do-not-use-f74a99cba417f0bd28d3bad626a4666eeecebf74.tar.bz2
drakx-backup-do-not-use-f74a99cba417f0bd28d3bad626a4666eeecebf74.tar.xz
drakx-backup-do-not-use-f74a99cba417f0bd28d3bad626a4666eeecebf74.zip
(doPartitionDisksAfter): remove the mount_all which is plain dumb
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index c9cfcd2be..65b8c7086 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -151,7 +151,10 @@ sub doPartitionDisksAfter {
$o->{fstab} = [ fsedit::get_fstab(@{$o->{hds}}, $o->{raid}) ];
fsedit::get_root_($o->{fstab}) or die "Oops, no root partition";
- fs::mount_all($fstab, $prefix);
+ if ($o->{partitioning}{use_existing_root}) {
+ #- ensure those partitions are mounted so that they are not proposed in choosePartitionsToFormat
+ fs::mount_part($_, $o->{prefix}) foreach grep { $_->{mntpoint} && !$_->{notFormatted} } @{$o->{fstab}};
+ }
if (my $s = delete $o->{stage1_hd}) {
my ($part) = grep { $_->{device} eq $s->{device} } @{$o->{fstab}};
@@ -224,7 +227,7 @@ sub choosePartitionsToFormat($$) {
my $t = isLoopback($_) ?
eval { fsedit::typeOfPart($o->{prefix} . loopback::file($_)) } :
fsedit::typeOfPart($_->{device});
- $_->{toFormatUnsure} = $_->{mntpoint} eq "/" && !$o->{doNotFormatRootByDefault} ||
+ $_->{toFormatUnsure} = $_->{mntpoint} eq "/" ||
#- if detected dos/win, it's not precise enough to just compare the types (too many of them)
(!$t || isOtherAvailableFS({ type => $t }) ? !isOtherAvailableFS($_) : $t != $_->{type});
}