summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-01 03:46:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-01 03:46:31 +0000
commit3efe20ca4238b59bfab486a76c89b589bf601c8f (patch)
tree0e31a8e955d4ba55409e5a5c04bd70a1068e125f /perl-install/commands.pm
parentf83545cabfa4cc23b333bce333be938d91ab2309 (diff)
downloaddrakx-3efe20ca4238b59bfab486a76c89b589bf601c8f.tar
drakx-3efe20ca4238b59bfab486a76c89b589bf601c8f.tar.gz
drakx-3efe20ca4238b59bfab486a76c89b589bf601c8f.tar.bz2
drakx-3efe20ca4238b59bfab486a76c89b589bf601c8f.tar.xz
drakx-3efe20ca4238b59bfab486a76c89b589bf601c8f.zip
use command mount instead of using directly the syscall (allows some cleanup)
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm19
1 files changed, 0 insertions, 19 deletions
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";