summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index bfbf62651..7ec6e4008 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -202,6 +202,8 @@ sub searchAndMount4Upgrade {
my ($o) = @_;
my ($root, $found);
+ $o->{partitioning}{readonly} ||= $::
+
#- try to find the partition where the system is installed if beginner
#- else ask the user the right partition, and test it after.
getHds($o);
@@ -235,10 +237,11 @@ sub searchAndMount4Upgrade {
is_empty_array_ref($found) and die _("No root partition found");
log::l("Found root partition : $root->{device}");
- $o->{prefix} = $root->{mntpoint};
#- test if the partition has to be fschecked and remounted rw.
- unless ($root->{realMntpoint}) {
+ if ($root->{realMntpoint}) {
+ ($o->{prefix}, $root->{mntpoint}) = ($root->{mntpoint}, '/');
+ } else {
delete $root->{mntpoint};
($Parts{$_->{device}} || {})->{mntpoint} = $_->{mntpoint} foreach @$found;