diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-31 21:33:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-31 21:33:25 +0000 |
| commit | 595e889a7bde73cd3be922fd0757e8f7b47b10d8 (patch) | |
| tree | 1af810413a59b2dc1578ca8a1739e7d897a73c80 /perl-install/fs.pm | |
| parent | 64d4b55d1524f56b2102d21920f2c94ea06040f3 (diff) | |
| download | drakx-backup-do-not-use-595e889a7bde73cd3be922fd0757e8f7b47b10d8.tar drakx-backup-do-not-use-595e889a7bde73cd3be922fd0757e8f7b47b10d8.tar.gz drakx-backup-do-not-use-595e889a7bde73cd3be922fd0757e8f7b47b10d8.tar.bz2 drakx-backup-do-not-use-595e889a7bde73cd3be922fd0757e8f7b47b10d8.tar.xz drakx-backup-do-not-use-595e889a7bde73cd3be922fd0757e8f7b47b10d8.zip | |
no_comment
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 2bf151c32..a873dac19 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -14,6 +14,7 @@ use detect_devices; use commands; use modules; use raid; +use fsedit use loopback; 1; @@ -61,9 +62,11 @@ sub check_mounted($) { } sub get_mntpoints_from_fstab { - my ($fstab, $prefix) = @_; + my ($fstab, $prefix, $uniq) = @_; foreach (read_fstab("$prefix/etc/fstab")) { + next if $uniq && fsedit::mntpoint2part($_->{mntpoint}, $fstab); + foreach my $p (@$fstab) { $p->{device} eq $_->{device} or next; $_->{type} ne 'auto' && $_->{type} ne type2fs($p->{type}) and @@ -371,7 +374,6 @@ sub write_fstab($;$$) { my @new = grep { $_ ne 'none' } map { @$_[0,1] } @to_add; my %new; @new{@new} = undef; - require fsedit; unshift @to_add, grep { my $b = !exists $new{$_->[0]} && !exists $new{$_->[1]}; @@ -386,7 +388,6 @@ sub write_fstab($;$$) { isNfs($_) and $dir = '', $options = $_->{options} || 'ro,nosuid,rsize=8192,wsize=8192'; isFat($_) and $options = $_->{options} || "user,exec,umask=0"; - require fsedit; isReiserfs($_) && $_ == fsedit::get_root($fstab, 'boot') and add_options($options, "notail"); my $dev = isLoopback($_) ? |