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);
@@ -81,10 +82,10 @@ my ($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
 );