View | Details | Raw Unified | Return to bug 23571
Collapse All | Expand All

(-)a/Koha/Script.pm (-2 / +1 lines)
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
- 

Return to bug 23571