From b4c49e9724f372607b7d82999deb47ddb6672615 Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Thu, 18 Jan 2018 03:32:43 +0000 Subject: [PATCH] Bug 20011: Changing 'use strict; use warnings;' to 'use Modern::Perl;' 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 https://bugs.koha-community.org/show_bug.cgi?id=20018 --- 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 57ae38c..0f32352 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 5981f35..c267692 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 caf24be..a8a59dd 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 d2d8553..a72dbdd 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 a23e2b8..b36162f 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.1.4