From b0be6b39098a7365e2efa3b8ed4f89059b3b2f6d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Dec 2002 21:11:05 +0000
Subject: (add_options): drop (unused, use mount_options_unpack +
 mount_options_pack instead) (mount_all): drop (unused, use formatMount_all
 instead)

---
 perl-install/fs.pm | 19 -------------------
 1 file changed, 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) = @_;
 
-- 
cgit v1.2.1