From: Harvie <tomas@mudrunka.cz>
Date: Wed, 23 May 2012 21:37:00 +0000 (+0200)
Subject: Playing with Fuse::Simple
X-Git-Url: http://git.harvie.cz/?p=mirrors%2FPrograms.git;a=commitdiff_plain;h=7685a4fd619d564418a5b82f1547c1e225e0b115

Playing with Fuse::Simple
---

diff --git a/perl/fuse/fs2.pl b/perl/fuse/fs2.pl
index 71fc7f5..610994b 100755
--- 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;
 };