1 |
#!/usr/bin/perl |
#!/usr/bin/perl -w |
2 |
|
use strict; |
3 |
|
|
4 |
|
use blib; |
5 |
use Fuse; |
use Fuse; |
6 |
use POSIX qw(ENOENT EISDIR EINVAL); |
use POSIX qw(ENOENT EISDIR EINVAL); |
7 |
|
|
83 |
$mountpoint = shift(@ARGV) if @ARGV; |
$mountpoint = shift(@ARGV) if @ARGV; |
84 |
Fuse::main( |
Fuse::main( |
85 |
mountpoint=>$mountpoint, |
mountpoint=>$mountpoint, |
86 |
getattr=>\&e_getattr, |
getattr=>"main::e_getattr", |
87 |
getdir=>\&e_getdir, |
getdir =>"main::e_getdir", |
88 |
open=>\&e_open, |
open =>"main::e_open", |
89 |
statfs=>\&e_statfs, |
statfs =>"main::e_statfs", |
90 |
read=>\&e_read, |
read =>"main::e_read", |
91 |
#debug=>1, threaded=>0 |
threaded=>0 |
92 |
); |
); |