From c6bea4ae86c6843d9f32150a6cd29d24006cf105 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 30 May 2005 06:32:24 +0000 Subject: make drakx-in-chroot work --- perl-install/install_steps.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'perl-install/install_steps.pm') 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; -- cgit v1.2.1