diff options
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 709764a1e..fb7d24f4c 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -127,7 +127,7 @@ sub setupSCSI { sub doPartitionDisksBefore { my ($o) = @_; - if (cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage\s+(\S+)|) { + if (cat_("/proc/mounts") =~ m|/\w+/(\S+)\s+/tmp/hdimage\s+(\S+)| && !$o->{partitioning}{readonly}) { $o->{stage1_hd} = { dev => $1, fs => $2 }; install_any::getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/hdimage") }; @@ -159,7 +159,15 @@ sub doPartitionDisksAfter { #------------------------------------------------------------------------------ sub doPartitionDisks { - my ($o, $hds) = @_; + my ($o) = @_; + + if ($o->{isUpgrade}) { + # either one root is defined (and all is ok), or we take the first one we find + my $p = fsedit::get_root($o->{fstab}) || first(install_any::find_root_parts($o->{hds}, $o->{prefix})) or die; + install_any::use_root_part($o->{fstab}, $p, $o->{prefix}); + } else { + #TODO; + } } #------------------------------------------------------------------------------ |