diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-11-09 17:31:24 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-11-09 17:31:24 +0000 |
| commit | 02b57b61aafd29a78023e242a0cf998cd93a91ee (patch) | |
| tree | 604e259cea3da5ad2f046fd2e11a6c6f631dd1ba /perl-install/fs.pm | |
| parent | 57b9b33657beba4976551212a562ac85ff22f81f (diff) | |
| download | drakx-backup-do-not-use-02b57b61aafd29a78023e242a0cf998cd93a91ee.tar drakx-backup-do-not-use-02b57b61aafd29a78023e242a0cf998cd93a91ee.tar.gz drakx-backup-do-not-use-02b57b61aafd29a78023e242a0cf998cd93a91ee.tar.bz2 drakx-backup-do-not-use-02b57b61aafd29a78023e242a0cf998cd93a91ee.tar.xz drakx-backup-do-not-use-02b57b61aafd29a78023e242a0cf998cd93a91ee.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 11 |
1 files changed, 6 insertions, 5 deletions
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 } |