--- perl/trunk/examples/example.pl	2004/11/11 14:44:15	4
+++ perl/trunk/examples/example.pl	2006/01/03 15:43:19	73
@@ -1,5 +1,7 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
+use strict;
 
+use blib;
 use Fuse;
 use POSIX qw(ENOENT EISDIR EINVAL);
 
@@ -81,10 +83,10 @@
 $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
 );