GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Playing with Fuse::Simple
[mirrors/Programs.git]
/
perl
/
fuse
/
fs2.pl
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;
#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++) {
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;
};
}
nocache $list;
};
This page took
0.110317 seconds
and
4
git commands to generate.