From 8ed09245417578c923df998bdc6a95412ad833c7 Mon Sep 17 00:00:00 2001
From: Mark Glines <mark@glines.org>
Date: Wed, 6 Feb 2002 15:20:11 +0000
Subject: some fixes - next up is read()

---
 perl/example.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl/example.pl')

diff --git a/perl/example.pl b/perl/example.pl
index d01278c..9ba1117 100755
--- a/perl/example.pl
+++ b/perl/example.pl
@@ -48,14 +48,17 @@ sub e_getattr {
 
 sub e_getdir {
 	# return as many text filenames as you like, followed by the retval.
+	print((scalar keys %files)."\n");
 	return (keys %files),0;
 }
 
 sub e_open {
 	# VFS sanity check; it keeps all the necessary state, not much to do here.
 	my ($file) = filename_fixup(shift);
+	print("open called\n");
 	return -ENOENT() unless exists($files{$file});
 	return -EISDIR() unless exists($files{$file}{cont});
+	print("open ok\n");
 	return 0;
 }
 
@@ -82,6 +85,6 @@ Fuse::main(
 	getdir=>\&e_getdir,
 	open=>\&e_open,
 	statfs=>\&e_statfs,
-	#read=>\&e_read,
+	read=>\&e_read,
 	#debug=>1, threaded=>0
 );
-- 
cgit v1.2.3