From 3d3ef3761179cf3d2ec890bfb391d1d1bd2254ec Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Thu, 18 Jan 2018 03:24:23 +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 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 --- 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 08d30d0..89aa648 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 0b9d621..36fa461 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 0c1bc8e..7203f0c 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 e42f369..2879356 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 89c5339..675c160 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 c611224..8577036 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 4f44d7e..d53f405 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.1.4