|
Lines 135-141
sub lock_exec {
Link Here
|
| 135 |
|
135 |
|
| 136 |
my $lock_params = ($params->{wait}) ? LOCK_EX : LOCK_EX | LOCK_NB; |
136 |
my $lock_params = ($params->{wait}) ? LOCK_EX : LOCK_EX | LOCK_NB; |
| 137 |
|
137 |
|
| 138 |
open our $lock_handle, '>', $self->{lock_file} |
138 |
open my $lock_handle, '>', $self->{lock_file} |
| 139 |
or Koha::Exceptions::Exception->throw("Unable to open the lock file ".$self->{lock_file}.": $!"); |
139 |
or Koha::Exceptions::Exception->throw("Unable to open the lock file ".$self->{lock_file}.": $!"); |
| 140 |
$self->{lock_handle} = $lock_handle; |
140 |
$self->{lock_handle} = $lock_handle; |
| 141 |
flock( $lock_handle, $lock_params ) |
141 |
flock( $lock_handle, $lock_params ) |
| 142 |
- |
|
|