--- perl-llin/Fuse.pm 2006/05/23 14:45:53 89 +++ perl-llin/Fuse.pm 2007/01/20 12:21:12 108 @@ -21,14 +21,14 @@ # 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) ], + 'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context) ], 'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = (); -our $VERSION = '0.07_3'; +our $VERSION = '0.09_1'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() @@ -79,7 +79,7 @@ rename link chmod chown truncate utime open read write statfs flush release fsync setxattr getxattr listxattr removexattr); my @subs = map {undef} @names; - my @validOpts = qw(ro allow_other default_permissions fsname use_ino); + my @validOpts = qw(ro allow_other default_permissions fsname use_ino nonempty); my $tmp = 0; my %mapping = map { $_ => $tmp++ } @names; my %optmap = map { $_ => 1 } @validOpts;