(add_options): drop (unused, use mount_options_unpack + mount_options_pack instead)

(mount_all): drop (unused, use formatMount_all instead)

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) = @_;