/[fuse.before_github]/perl-llin/Fuse.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/Fuse.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 89 by dpavlin, Tue May 23 14:45:53 2006 UTC revision 108 by dpavlin, Sat Jan 20 12:21:12 2007 UTC
# Line 21  our @ISA = qw(Exporter DynaLoader); Line 21  our @ISA = qw(Exporter DynaLoader);
21  # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK  # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
22  # will save memory.  # will save memory.
23  our %EXPORT_TAGS = (  our %EXPORT_TAGS = (
24                      'all' => [ qw(XATTR_CREATE XATTR_REPLACE) ],                      'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context) ],
25                      'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ]                      'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ]
26                      );                      );
27    
28  our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );  our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
29    
30  our @EXPORT = ();  our @EXPORT = ();
31  our $VERSION = '0.07_3';  our $VERSION = '0.09_1';
32    
33  sub AUTOLOAD {  sub AUTOLOAD {
34      # This AUTOLOAD is used to 'autoload' constants from the constant()      # This AUTOLOAD is used to 'autoload' constants from the constant()
# Line 79  sub main { Line 79  sub main {
79                          rename link chmod chown truncate utime open read write statfs                          rename link chmod chown truncate utime open read write statfs
80                          flush release fsync setxattr getxattr listxattr removexattr);                          flush release fsync setxattr getxattr listxattr removexattr);
81          my @subs = map {undef} @names;          my @subs = map {undef} @names;
82          my @validOpts = qw(ro allow_other default_permissions fsname use_ino);          my @validOpts = qw(ro allow_other default_permissions fsname use_ino nonempty);
83          my $tmp = 0;          my $tmp = 0;
84          my %mapping = map { $_ => $tmp++ } @names;          my %mapping = map { $_ => $tmp++ } @names;
85          my %optmap  = map { $_ => 1 } @validOpts;          my %optmap  = map { $_ => 1 } @validOpts;
Legend:
Removed from v.89  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.26