diff options
| -rw-r--r-- | perl-install/fs.pm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index d6445596b..42c0a9bee 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -298,14 +298,6 @@ sub mount_options { \%non_defaults, \@user_implies; } -# simple function -# use mount_options_unpack + mount_options_pack for advanced stuff -sub add_options(\$@) { - my ($option, @options) = @_; - my %l; @l{split(',', $$option), @options} = (); delete $l{defaults}; - $$option = join(',', keys %l) || "defaults"; -} - sub mount_options_unpack { my ($part) = @_; my $packed_options = $part->{options}; @@ -806,17 +798,6 @@ sub umount_part { $part->{isMounted} = 0; } -sub mount_all($;$$) { - my ($fstab, $prefix) = @_; - - log::l("mounting all filesystems"); - - #- order mount by alphabetical order, that way / < /home < /home/httpd... - foreach (sort { $a->{mntpoint} cmp $b->{mntpoint} } grep { isSwap($_) || $_->{mntpoint} && isTrueFS($_) } @$fstab) { - mount_part($_, $prefix); - } -} - sub umount_all($;$) { my ($fstab, $prefix) = @_; |