repo.or.cz
/
koha.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Bug 17268: DBRev 19.12.00.084
[koha.git]
/
t
/
Koha
/
wait.pl
blob
f909cb1f0667f5e57011e27e13487975cea14397
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
({
wait
=>
1
});
13
14
print
STDOUT
"YAY!"
;
15
16
# Normal exit
17
1
;