From 9a270336549a4a6484b5757d568c1d48785120c3 Mon Sep 17 00:00:00 2001 From: Jenny Way Date: Thu, 18 Jan 2018 00:40:57 +0000 Subject: [PATCH] Bug-20013: use Modern::Perl in Reserve perl script Test plan: Check the following files that use strict; use warnings; doesn't exist and use Modern::Perl; is written instead. modrequest.pl modrequest_suspendall.pl placerequest.pl --- reserve/modrequest.pl | 3 +-- reserve/modrequest_suspendall.pl | 3 +-- reserve/placerequest.pl | 3 +-- 3 files changed, 3 insertions(+), 6 deletions(-) diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl index 84703f2..6b4061c 100755 --- a/reserve/modrequest.pl +++ b/reserve/modrequest.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl index f8e24ba..e53e060 100755 --- a/reserve/modrequest_suspendall.pl +++ b/reserve/modrequest_suspendall.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl index 403321c..3c55656 100755 --- a/reserve/placerequest.pl +++ b/reserve/placerequest.pl @@ -21,8 +21,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Biblio; -- 2.1.4