diff options
author | Francois Pons <fpons@mandriva.com> | 1999-11-09 20:38:25 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 1999-11-09 20:38:25 +0000 |
commit | d92b13883fbf6acce6c39cb76484accc56bce0c3 (patch) | |
tree | cfc9c50359dca43fb7169bdae397b1208b329f79 /perl-install/fs.pm | |
parent | eb53575902c0282896e92d7d6d76a89bca420e5a (diff) | |
download | drakx-backup-do-not-use-d92b13883fbf6acce6c39cb76484accc56bce0c3.tar drakx-backup-do-not-use-d92b13883fbf6acce6c39cb76484accc56bce0c3.tar.gz drakx-backup-do-not-use-d92b13883fbf6acce6c39cb76484accc56bce0c3.tar.bz2 drakx-backup-do-not-use-d92b13883fbf6acce6c39cb76484accc56bce0c3.tar.xz drakx-backup-do-not-use-d92b13883fbf6acce6c39cb76484accc56bce0c3.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r-- | perl-install/fs.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 8634f0343..1a81a238a 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, $remount) = @_; +sub mount($$$;$) { + my ($dev, $where, $fs, $rdonly) = @_; log::l("mounting $dev on $where as type $fs"); -d $where or commands::mkdir_('-p', $where); @@ -111,7 +111,6 @@ 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') { @@ -140,8 +139,8 @@ sub umount($) { foreach (@mtab) { print F $_ unless /(^|\s)$mntpoint\s/; } } -sub mount_part($;$$$) { - my ($part, $prefix, $rdonly, $remount) = @_; +sub mount_part($;$$) { + my ($part, $prefix, $rdonly) = @_; $part->{isMounted} and return; @@ -149,7 +148,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, $remount); + mount(devices::make($part->{device}), ($prefix || '') . $part->{mntpoint}, type2fs($part->{type}), $rdonly); } $part->{isMounted} = $part->{isFormatted} = 1; #- assume that if mount works, partition is formatted } |