X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=perl%2Ffuse%2Ffs2.pl;h=610994b3ad4d72837e31e7dc545df0f3d4105e6a;hb=cab857a92a549c03d8dcd82aa13670c0e830ca3a;hp=71fc7f5c58b753020adc3f21089c4d965cba7d66;hpb=21c4e16782bf8fee46cf478cd933a9ba11cca1c7;p=mirrors%2FPrograms.git

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