X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Fuse.pm;h=7a5b99905768d731490e70b37fec56d6211295b8;hb=f7c371654fb9afd842bacb11d40ad763bfb37f72;hp=1e3573d7443a127c478838be9f65200a0dfa0761;hpb=a407dfe21750b50b58defff2408b5c79d5e5803e;p=perl-fuse.git

diff --git a/Fuse.pm b/Fuse.pm
index 1e3573d..7a5b999 100755
--- a/Fuse.pm
+++ b/Fuse.pm
@@ -20,8 +20,9 @@ our @ISA = qw(Exporter DynaLoader);
 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
 # will save memory.
 our %EXPORT_TAGS = (
-		    'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context fuse_version) ],
-		    'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ]
+		    'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context fuse_version FUSE_IOCTL_COMPAT FUSE_IOCTL_UNRESTRICTED FUSE_IOCTL_RETRY FUSE_IOCTL_MAX_IOV) ],
+		    'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ],
+		    'ioctl' => [ qw(FUSE_IOCTL_COMPAT FUSE_IOCTL_UNRESTRICTED FUSE_IOCTL_RETRY FUSE_IOCTL_MAX_IOV) ],
 		    );
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@@ -63,6 +64,11 @@ sub AUTOLOAD {
 
 bootstrap Fuse $VERSION;
 
+use constant FUSE_IOCTL_COMPAT		=> (1 << 0);
+use constant FUSE_IOCTL_UNRESTRICTED	=> (1 << 1);
+use constant FUSE_IOCTL_RETRY		=> (1 << 2);
+use constant FUSE_IOCTL_MAX_IOV		=> 256;
+
 sub main {
 	my @names = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink
 			rename link chmod chown truncate utime open read write statfs