From 3efe20ca4238b59bfab486a76c89b589bf601c8f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Jun 2005 03:46:31 +0000
Subject: use command mount instead of using directly the syscall (allows some
 cleanup)

---
 perl-install/commands.pm | 19 -------------------
 1 file changed, 19 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 43dcbeca6..14c4786f3 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -61,25 +61,6 @@ sub tr_ {
     eval "(tr/$set1/$set2/$s$d$c, print) while <>";
 }
 
-sub mount {
-    @_ or return cat("/proc/mounts");
-    my ($t, $r) = getopts(\@_, qw(tr));
-    my $fs = $t && shift;
-
-    @_ == 2 or die "usage: mount [-r] [-t <fs>] <device> <dir>\n",
-    "       (use -r for readonly)\n",
-    "       (if /dev/ is left off the device name, a temporary node will be created)\n";
-
-    my ($dev, $where) = @_;
-    $fs ||= $dev =~ /:/ ? "nfs" :
-            $dev =~ /fd/ ? "vfat" : "ext2";
-
-    require fs;
-    require modules;
-    modules::load_dependencies("/modules/modules.dep");
-    fs::mount($dev, $where, $fs, $r);
-}
-
 sub umount {
     @_ == 1 or die "umount expects a single argument\n";
 
-- 
cgit v1.2.1