From 2fbae01c9b127516953bbeafd77d1a030379f3a8 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 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.39.5