summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-08 16:16:49 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-08 16:16:49 +0000
commit39cc1df8799993bb6998bd2400a4a3adc3d553ca (patch)
tree940f044fc5161b33a4545c78b6d00c0faaca2a78 /perl-install
parentda9ad08d97b011de0c34c46b1a2a1d2fdd7af5ba (diff)
downloaddrakx-39cc1df8799993bb6998bd2400a4a3adc3d553ca.tar
drakx-39cc1df8799993bb6998bd2400a4a3adc3d553ca.tar.gz
drakx-39cc1df8799993bb6998bd2400a4a3adc3d553ca.tar.bz2
drakx-39cc1df8799993bb6998bd2400a4a3adc3d553ca.tar.xz
drakx-39cc1df8799993bb6998bd2400a4a3adc3d553ca.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-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;