From 02b57b61aafd29a78023e242a0cf998cd93a91ee Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 9 Nov 1999 17:31:24 +0000
Subject: *** empty log message ***

---
 perl-install/fs.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install/fs.pm')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 1a81a238a..8634f0343 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -95,8 +95,8 @@ sub format_part($;$@) {
     $part->{isFormatted} = 1;
 }
 
-sub mount($$$;$) {
-    my ($dev, $where, $fs, $rdonly) = @_;
+sub mount($$$;$$) {
+    my ($dev, $where, $fs, $rdonly, $remount) = @_;
     log::l("mounting $dev on $where as type $fs");
 
     -d $where or commands::mkdir_('-p', $where);
@@ -111,6 +111,7 @@ sub mount($$$;$) {
 
 	my $flag = 0;#c::MS_MGC_VAL();
 	$flag |= c::MS_RDONLY() if $rdonly;
+	$flag |= c::MS_REMOUNT() if $remount;
 	my $mount_opt = "";
 
 	if ($fs eq 'vfat') {
@@ -139,8 +140,8 @@ sub umount($) {
     foreach (@mtab) { print F $_ unless /(^|\s)$mntpoint\s/; }
 }
 
-sub mount_part($;$$) {
-    my ($part, $prefix, $rdonly) = @_;
+sub mount_part($;$$$) {
+    my ($part, $prefix, $rdonly, $remount) = @_;
 
     $part->{isMounted} and return;
 
@@ -148,7 +149,7 @@ sub mount_part($;$$) {
 	swap::swapon($part->{device});
     } else {
 	$part->{mntpoint} or die "missing mount point";
-	mount(devices::make($part->{device}), ($prefix || '') . $part->{mntpoint}, type2fs($part->{type}), $rdonly);
+	mount(devices::make($part->{device}), ($prefix || '') . $part->{mntpoint}, type2fs($part->{type}), $rdonly, $remount);
     }
     $part->{isMounted} = $part->{isFormatted} = 1; #- assume that if mount works, partition is formatted
 }
-- 
cgit v1.2.1