From 7685a4fd619d564418a5b82f1547c1e225e0b115 Mon Sep 17 00:00:00 2001
From: Harvie <tomas@mudrunka.cz>
Date: Wed, 23 May 2012 23:37:00 +0200
Subject: [PATCH] Playing with Fuse::Simple

---
 perl/fuse/fs2.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
 };
-- 
2.30.2