From 39cc1df8799993bb6998bd2400a4a3adc3d553ca Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Oct 1999 16:16:49 +0000
Subject: *** empty log message ***

---
 perl-install/install_any.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
 
-- 
cgit v1.2.1