From: Derrik Pates <demon@now.ai>
Date: Wed, 10 Aug 2011 01:55:45 +0000 (-0600)
Subject: Added some ioctl-specific symbols.
X-Git-Url: http://git.rot13.org/?p=perl-fuse.git;a=commitdiff_plain;h=f7c371654fb9afd842bacb11d40ad763bfb37f72

Added some ioctl-specific symbols.
---

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