From 7b3470ca3f5df7af683e916b35880e674dd200bb 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 Signed-off-by: Owen Leonard Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- 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 84703f20ca..6b4061c724 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 f8e24ba538..e53e06011e 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 403321c818..3c55656380 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.39.5