projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bug 17229: Check if patron is expired in CanItemBeReserved
[koha.git]
/
t
/
Koha
/
wait.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({ wait => 1 });
13
14
print STDOUT "YAY!";
15
16
# Normal exit
17
1;