diff options
Diffstat (limited to 'perl/loopback.pl')
| -rw-r--r-- | perl/loopback.pl | 26 |
1 files changed, 22 insertions, 4 deletions
diff --git a/perl/loopback.pl b/perl/loopback.pl index 4a531e2..c055db5 100644 --- a/perl/loopback.pl +++ b/perl/loopback.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/debugperl use strict; use Fuse; @@ -104,7 +104,25 @@ sub x_mknod { my ($mountpoint) = ""; $mountpoint = shift(@ARGV) if @ARGV; -Fuse::main(mountpoint=>$mountpoint, getattr=>\&x_getattr, readlink=>\&x_readlink, getdir=>\&x_getdir, mknod=>\&x_mknod, - mkdir=>\&x_mkdir, unlink=>\&x_unlink, rmdir=>\&x_rmdir, symlink=>\&x_symlink, rename=>\&x_rename, link=>\&x_link, - chmod=>\&x_chmod, chown=>\&x_chown, truncate=>\&x_truncate, utime=>\&x_utime, open=>\&x_open, read=>\&x_read, write=>\&x_write +Fuse::main( + unthreaded=>1, + debug=>1, + mountpoint=>$mountpoint, + getattr=>\&x_getattr, + readlink=>\&x_readlink, + getdir=>\&x_getdir, + mknod=>\&x_mknod, + mkdir=>\&x_mkdir, + unlink=>\&x_unlink, + rmdir=>\&x_rmdir, + symlink=>\&x_symlink, + rename=>\&x_rename, + link=>\&x_link, + chmod=>\&x_chmod, + chown=>\&x_chown, + truncate=>\&x_truncate, + utime=>\&x_utime, + open=>\&x_open, + read=>\&x_read, + write=>\&x_write ); |