projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bug 28813: Update unit tests
[koha.git]
/
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;