From 4d53f3b14c605e37bea88fdd10bfd25d19edddbb Mon Sep 17 00:00:00 2001 From: Grace Smyth Date: Thu, 18 Jan 2018 03:42:25 +0000 Subject: [PATCH] Bug 19994: use Modern::Perl in Authorities perl scripts Test Case: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; auth_finder.pl authorities-home.pl authorities-list.pl authorities.pl blinddetail-biblio-search.pl detail-biblio-search.pl detail.pl export.pl merge.pl merge_ajax.pl --- authorities/auth_finder.pl | 4 +--- authorities/authorities-home.pl | 4 +--- authorities/authorities-list.pl | 3 +-- authorities/authorities.pl | 3 +-- authorities/blinddetail-biblio-search.pl | 4 +--- authorities/detail.pl | 4 +--- authorities/merge.pl | 3 +-- authorities/merge_ajax.pl | 4 +--- 8 files changed, 8 insertions(+), 21 deletions(-) diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl index b484f03..7ebd116 100755 --- a/authorities/auth_finder.pl +++ b/authorities/auth_finder.pl @@ -18,9 +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; use C4::Auth; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index d9c5ac8..2edaeaf 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -17,9 +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; use C4::Auth; diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl index 0afa5e7..17991bc 100755 --- a/authorities/authorities-list.pl +++ b/authorities/authorities-list.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use C4::Context; use C4::AuthoritiesMarc; use utf8; diff --git a/authorities/authorities.pl b/authorities/authorities.pl index 84fba09..d3ae6d3 100755 --- a/authorities/authorities.pl +++ b/authorities/authorities.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::Auth; use C4::Output; diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index 9e7930d..8e3639c 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -36,9 +36,7 @@ parameters tables. =cut -use strict; -use warnings; - +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; diff --git a/authorities/detail.pl b/authorities/detail.pl index 8dd4b77..72e6f66 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -37,9 +37,7 @@ parameters tables. =cut -use strict; -use warnings; - +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; diff --git a/authorities/merge.pl b/authorities/merge.pl index 9f72541..0d39249 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 39796b0..7b39877 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -1,8 +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 use JSON; -- 2.1.4