aboutsummaryrefslogtreecommitdiffstats
path: root/perl/Fuse.pm
diff options
context:
space:
mode:
authorMark Glines <mark@glines.org>2002-04-18 14:53:55 +0000
committerMark Glines <mark@glines.org>2002-04-18 14:53:55 +0000
commita0c0d5c9f433ac8b57df9996686a53e75e1002f9 (patch)
tree3d6915c2d89201abbc159f1b3d9d28ba3d295447 /perl/Fuse.pm
parent65ba219885aefa096437c2bd92ad8394a5ecda75 (diff)
downloadlibfuse-a0c0d5c9f433ac8b57df9996686a53e75e1002f9.tar.gz
use fuse_mount_ioslave(), and get rid of that lame argv-rebuilding crap
disable threads indefinitely, pending stabilization of the perl threads API loopback.pl: fix open() and mknod() ghettoness
Diffstat (limited to 'perl/Fuse.pm')
-rw-r--r--perl/Fuse.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl/Fuse.pm b/perl/Fuse.pm
index 5e18483..6a01677 100644
--- a/perl/Fuse.pm
+++ b/perl/Fuse.pm
@@ -66,10 +66,11 @@ bootstrap Fuse $VERSION;
sub main {
my (@subs) = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
- my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink rename link chmod chown truncate utime open read write statfs);
+ my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink
+ rename link chmod chown truncate utime open read write statfs);
my ($tmp) = 0;
my (%mapping) = map { $_ => $tmp++ } (@names);
- my (%otherargs) = (debug=>0, unthreaded=>1, mountpoint=>"");
+ my (%otherargs) = (debug=>0, mountpoint=>"");
while(my $name = shift) {
my ($subref) = shift;
if(exists($otherargs{$name})) {
@@ -82,9 +83,7 @@ sub main {
$subs[$mapping{$name}] = $subref;
}
}
- print "flag: debug\n" if $otherargs{debug};
- print "flag: unthreaded\n" if $otherargs{unthreaded};
- perl_fuse_main($0,$otherargs{unthreaded},$otherargs{debug},$otherargs{mountpoint},@subs);
+ perl_fuse_main($otherargs{debug},$otherargs{mountpoint},@subs);
}
# Autoload methods go after =cut, and are processed by the autosplit program.