/[fuse.before_github]/perl/trunk/examples/example.pl
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/trunk/examples/example.pl

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

revision 4 by mszeredi, Thu Nov 11 14:44:15 2004 UTC revision 73 by dpavlin, Tue Jan 3 15:43:19 2006 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl -w
2    use strict;
3    
4    use blib;
5  use Fuse;  use Fuse;
6  use POSIX qw(ENOENT EISDIR EINVAL);  use POSIX qw(ENOENT EISDIR EINVAL);
7    
# Line 81  my ($mountpoint) = ""; Line 83  my ($mountpoint) = "";
83  $mountpoint = shift(@ARGV) if @ARGV;  $mountpoint = shift(@ARGV) if @ARGV;
84  Fuse::main(  Fuse::main(
85          mountpoint=>$mountpoint,          mountpoint=>$mountpoint,
86          getattr=>\&e_getattr,          getattr=>"main::e_getattr",
87          getdir=>\&e_getdir,          getdir =>"main::e_getdir",
88          open=>\&e_open,          open   =>"main::e_open",
89          statfs=>\&e_statfs,          statfs =>"main::e_statfs",
90          read=>\&e_read,          read   =>"main::e_read",
91          #debug=>1, threaded=>0          threaded=>0
92  );  );

Legend:
Removed from v.4  
changed lines
  Added in v.73

  ViewVC Help
Powered by ViewVC 1.1.26