From 52ff5b65e800d5525786e8028805c49c450fb969 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 Apr 2020 10:18:31 +0200 Subject: [PATCH] bug 23571: (QA follow-up) Remove perlcritic warning Bareword file handle opened at line 138, column 5. See pages 202,204 of PBP. (Severity: 5) Signed-off-by: Jonathan Druart --- Koha/Script.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Koha/Script.pm b/Koha/Script.pm index 089cebf1a7..aaa2e8b560 100644 --- a/Koha/Script.pm +++ b/Koha/Script.pm @@ -135,7 +135,7 @@ sub lock_exec { my $lock_params = ($params->{wait}) ? LOCK_EX : LOCK_EX | LOCK_NB; - open our $lock_handle, '>', $self->{lock_file} + open my $lock_handle, '>', $self->{lock_file} or Koha::Exceptions::Exception->throw("Unable to open the lock file ".$self->{lock_file}.": $!"); $self->{lock_handle} = $lock_handle; flock( $lock_handle, $lock_params ) -- 2.20.1