diff options
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r-- | perl-install/install_steps.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 2aa5e9643..7749aa851 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -201,6 +201,14 @@ sub doPartitionDisksAfter { if !$o->{isUpgrade}; $o->{fstab} = [ fs::get::fstab($o->{all_hds}) ]; + + if ($::local_install) { + my $p = fs::get::mntpoint2part($::prefix, [ fs::read_fstab('', '/proc/mounts') ]); + my $part = fs::get::device2part($p->{device}, $o->{fstab}); + $part->{mntpoint} = '/'; + $part->{isMounted} = 1; + } + fs::get::root_($o->{fstab}) or die "Oops, no root partition"; if (arch() =~ /ppc/ && detect_devices::get_mac_generation() =~ /NewWorld/) { @@ -262,6 +270,8 @@ sub rebootNeeded($) { sub choosePartitionsToFormat($$) { my ($_o, $fstab) = @_; + return if $::local_install; + foreach (@$fstab) { $_->{mntpoint} = "swap" if isSwap($_); $_->{mntpoint} or next; |