From 843c4a4bae760754d96867d2596bc78651910c8e Mon Sep 17 00:00:00 2001 From: Jasmine Amohia Date: Thu, 17 Jan 2019 00:51:11 +0000 Subject: [PATCH] Bug 19994: Used Modern::Perl in Authorities perl scripts Test plan: 1. Review code of the following files and confirm that 'use Modern::Perl;' is used in place of 'use strict; use warnings;' auth_finder.pl authorities-home.pl authorities.pl blinddetail-biblio-search.pl detail-biblio-search.pl detail.pl export.pl merge.pl merge_ajax.pl Signed-off-by: David Nind Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens --- authorities/auth_finder.pl | 3 +-- authorities/authorities-home.pl | 3 +-- authorities/authorities.pl | 4 ++-- authorities/blinddetail-biblio-search.pl | 3 +-- authorities/detail-biblio-search.pl | 4 +--- authorities/detail.pl | 4 +--- authorities/export.pl | 3 +-- authorities/merge.pl | 3 +-- authorities/merge_ajax.pl | 3 +-- 9 files changed, 10 insertions(+), 20 deletions(-) diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl index 6f87cb4fc4..f017622678 100755 --- a/authorities/auth_finder.pl +++ b/authorities/auth_finder.pl @@ -18,8 +18,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; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index 7c17b1df02..29ee617173 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -17,8 +17,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 URI::Escape; diff --git a/authorities/authorities.pl b/authorities/authorities.pl index 8fff429514..e422cafb36 100755 --- a/authorities/authorities.pl +++ b/authorities/authorities.pl @@ -18,8 +18,8 @@ # 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::Auth; use C4::Output; diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index 73d2fcf160..993615dfdb 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -36,8 +36,7 @@ parameters tables. =cut -use strict; -use warnings; +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index 717061b2ef..4936b176bf 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/detail.pl b/authorities/detail.pl index 0e7ba42c77..f9724ff4ce 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/export.pl b/authorities/export.pl index 6b79ffb656..fbb675eec0 100755 --- a/authorities/export.pl +++ b/authorities/export.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use C4::Record; use C4::Auth; diff --git a/authorities/merge.pl b/authorities/merge.pl index 9bd91b579f..57635749ea 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -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 qw ( -utf8 ); use C4::Output; use C4::Auth; diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl index 39796b0be9..6ed427891c 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before CGI parses the POST request -- 2.39.5