projects
/
srvgit
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f909cb1f0667f5e57011e27e13487975cea14397
[srvgit]
/
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;