From 2bde680e0b7cb0a91731bd9a9475e3460e4b6fec Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Thu, 18 Jan 2018 03:24:23 +0000 Subject: [PATCH] Bug 20016: use Modern::Perl in svc scripts Test Plan: - Check that it now says 'use Modern::Perl' and not 'use trict; use warnings;' in the follwing plugins svc scripts authentication bib bib_profile checkouts config/systempreferences import_bib new_bib https://bugs.koha-community.org/show_bug.cgi?id=20016 Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- svc/authentication | 3 +-- svc/bib | 3 +-- svc/bib_profile | 3 +-- svc/checkouts | 3 +-- svc/config/systempreferences | 3 +-- svc/import_bib | 3 +-- svc/new_bib | 3 +-- 7 files changed, 7 insertions(+), 14 deletions(-) diff --git a/svc/authentication b/svc/authentication index 08d30d08b6..89aa648b77 100755 --- a/svc/authentication +++ b/svc/authentication @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; diff --git a/svc/bib b/svc/bib index 0b9d62171f..36fa461702 100755 --- a/svc/bib +++ b/svc/bib @@ -19,8 +19,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; diff --git a/svc/bib_profile b/svc/bib_profile index 0c1bc8e41b..7203f0ce9d 100755 --- a/svc/bib_profile +++ b/svc/bib_profile @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; diff --git a/svc/checkouts b/svc/checkouts index e42f36927e..2879356933 100755 --- a/svc/checkouts +++ b/svc/checkouts @@ -17,8 +17,7 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; +use Modern::Perl; use CGI; use JSON qw(to_json); diff --git a/svc/config/systempreferences b/svc/config/systempreferences index 89c53398b8..675c1605cc 100755 --- a/svc/config/systempreferences +++ b/svc/config/systempreferences @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use C4::Context; use C4::Service; diff --git a/svc/import_bib b/svc/import_bib index c6112249f3..8577036ed9 100755 --- a/svc/import_bib +++ b/svc/import_bib @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; diff --git a/svc/new_bib b/svc/new_bib index 4f44d7ee96..d53f405a9f 100755 --- a/svc/new_bib +++ b/svc/new_bib @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; -- 2.39.5