projects
/
perl-fuse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes from Mark Glines in preparation for 0.07
[perl-fuse.git]
/
examples
/
example.pl
diff --git
a/examples/example.pl
b/examples/example.pl
index
9ba1117
..
4a7b971
100644
(file)
--- a/
examples/example.pl
+++ b/
examples/example.pl
@@
-1,4
+1,5
@@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
+use strict;
use Fuse;
use POSIX qw(ENOENT EISDIR EINVAL);
use Fuse;
use POSIX qw(ENOENT EISDIR EINVAL);
@@
-81,10
+82,10
@@
my ($mountpoint) = "";
$mountpoint = shift(@ARGV) if @ARGV;
Fuse::main(
mountpoint=>$mountpoint,
$mountpoint = shift(@ARGV) if @ARGV;
Fuse::main(
mountpoint=>$mountpoint,
- getattr=>
\&e_getattr
,
- getdir
=>\&e_getdir
,
- open
=>\&e_open
,
- statfs
=>\&e_statfs
,
- read
=>\&e_read
,
-
#debug=>1,
threaded=>0
+ getattr=>
"main::e_getattr"
,
+ getdir
=>"main::e_getdir"
,
+ open
=>"main::e_open"
,
+ statfs
=>"main::e_statfs"
,
+ read
=>"main::e_read"
,
+ threaded=>0
);
);