koha-dev.rot13.org Git - srvgit/blob - t/Koha/sleep.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Koha::Script;
   6
   7 # # Lock execution
   8 my $script = Koha::Script->new({ script => 'sleep.pl' });
   9
  10 $script->lock_exec;
  11
  12 # Sleep for a while, we need to force the concurrent access to the
  13 # lock file
  14 sleep 2;
  15
  16 # Normal exit
  17 1;