X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=examples%2Freaddir.pl;h=63023bf862b42e6e8da61303db70266ca66bd49b;hb=ea6e4fd27a10f60467acd1fc3d7c458a7748a8f9;hp=514bf5a9e27a5e4adfbb9db20965d09b226492d3;hpb=fbfdda2504967198b3fd5ee589a5de567acd8b5d;p=perl-fuse.git

diff --git a/examples/readdir.pl b/examples/readdir.pl
index 514bf5a..63023bf 100755
--- a/examples/readdir.pl
+++ b/examples/readdir.pl
@@ -56,10 +56,14 @@ sub e_getattr {
 }
 
 sub e_readdir {
-    my ($path,$offset)  = @_;
+	my ($path,$offset)  = @_;
 	print "readdir $path $offset\n";
+	my $stridelen = 9;
+	my $last = $offset + $stridelen;
 	my @a = keys %files;
-	return $a[$offset], 1 + $offset, $offset < $#a ? 0 : -ENOENT();
+	if ($last > $#a) { $last = $#a; }
+	my @ents = map { [ $_, $a[$_] ] } $offset .. $last;
+	return @ents, $offset < $#a ? 0 : -ENOENT();
 }
 
 sub e_open {