Playing with Fuse::Simple

diff --git a/perl/fuse/fs2.pl b/perl/fuse/fs2.pl
index 71fc7f5c58b753020adc3f21089c4d965cba7d66..610994b3ad4d72837e31e7dc545df0f3d4105e6a 100755 (executable)
--- a/perl/fuse/fs2.pl
+++ b/perl/fuse/fs2.pl
@@ -3,11 +3,16 @@ use Fuse::Simple qw(accessor main nocache saferun runcode);
 #use threads;
 #use threads::shared;
 
+my $randfile = sub {
+       nocache $_[0]." ".rand(23)."\n";
+};
+
 
 my $randdir = sub {
                my $list = {};
                for(my $i=0;$i<int(rand(15));$i++) {
-                       $list->{$i}="test #$i\n";
+                       #$list->{$i}="test #$i\n";
+                       $list->{$i}=saferun($randfile, $i);
                }
                nocache $list;
 };