projects
/
srvgit
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
009b4034dcfe9c145f6eaeaba03154872933b83b
[srvgit]
/
t
/
Koha
/
sleep.pl
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
5
use Koha::Script;
6
use Fcntl qw(:flock);
7
use Try::Tiny;
8
9
# # Lock execution
10
my $script = Koha::Script->new({ script => 'sleep.pl' });
11
12
$script->lock_exec;
13
14
# Sleep for a while, we need to force the concurrent access to the
15
# lock file
16
sleep 2;
17
18
# Normal exit
19
1;