From 484fd322abd36bba61a8c2fa40e3902e909438c3 Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Thu, 18 Jan 2018 03:32:43 +0000 Subject: [PATCH] Bug 20018: use Modern::Perl in offline_circ scripts Test Plan: - Check that it now says 'use Modern::Perl' and not 'use trict; use warnings;' in the follwing plugins perl scripts enqueue_koc.pl list.pl process.pl process_koc.pl service.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- offline_circ/enqueue_koc.pl | 3 +-- offline_circ/list.pl | 3 +-- offline_circ/process.pl | 3 +-- offline_circ/process_koc.pl | 3 +-- offline_circ/service.pl | 3 +-- 5 files changed, 5 insertions(+), 10 deletions(-) diff --git a/offline_circ/enqueue_koc.pl b/offline_circ/enqueue_koc.pl index 57ae38c86e..0f32352a7f 100755 --- a/offline_circ/enqueue_koc.pl +++ b/offline_circ/enqueue_koc.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; diff --git a/offline_circ/list.pl b/offline_circ/list.pl index 06416292d9..a58e94d06f 100755 --- a/offline_circ/list.pl +++ b/offline_circ/list.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; diff --git a/offline_circ/process.pl b/offline_circ/process.pl index caf24be625..a8a59dd73f 100755 --- a/offline_circ/process.pl +++ b/offline_circ/process.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl index d2d8553d29..a72dbdd384 100755 --- a/offline_circ/process_koc.pl +++ b/offline_circ/process_koc.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Carp; diff --git a/offline_circ/service.pl b/offline_circ/service.pl index a23e2b8199..b36162f98e 100755 --- a/offline_circ/service.pl +++ b/offline_circ/service.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -- 2.39.5