From a0c0d5c9f433ac8b57df9996686a53e75e1002f9 Mon Sep 17 00:00:00 2001 From: Mark Glines Date: Thu, 18 Apr 2002 14:53:55 +0000 Subject: 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 --- perl/Fuse.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'perl/Fuse.pm') 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. -- cgit v1.2.3